You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
34 lines
568 B
Plaintext
34 lines
568 B
Plaintext
11 months ago
|
unit u_ch_fee_audit;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
|
|
Dialogs, u_fee_check, DB, ADODB;
|
||
|
|
|
||
|
|
type
|
||
|
|
TfrmFeeAudit = class(TForm)
|
||
|
|
fra_fee_check1: Tfra_fee_check;
|
||
|
|
t_op_seae: TADOStoredProc;
|
||
|
|
t_op_seae1: TDataSource;
|
||
|
|
procedure FormShow(Sender: TObject);
|
||
|
|
private
|
||
|
|
{ Private declarations }
|
||
|
|
public
|
||
|
|
{ Public declarations }
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
frmFeeAudit: TfrmFeeAudit;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
procedure TfrmFeeAudit.FormShow(Sender: TObject);
|
||
|
|
begin
|
||
|
|
fra_fee_check1.Align:=alClient;
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|