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.
61 lines
1.3 KiB
Plaintext
61 lines
1.3 KiB
Plaintext
11 months ago
|
unit u_ch_invoice_exp;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
|
|
dxExEdtr, DB, dxTL, dxDBCtrl, dxDBGrid, dxCntner, StdCtrls, Mask,
|
||
|
|
wwdbedit, Wwdotdot, Wwdbcomb, bsSkinCtrls, Dialogs, ADODB,
|
||
|
|
BusinessSkinForm, DBCtrls;
|
||
|
|
|
||
|
|
type
|
||
|
|
Tfrm_ch_invoice_exp = class(TForm)
|
||
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
||
|
|
t_excel_bill: TADOQuery;
|
||
|
|
t_excel_bill1: TDataSource;
|
||
|
|
bsSkinPanel1: TbsSkinPanel;
|
||
|
|
bsSkinPanel8: TbsSkinPanel;
|
||
|
|
bsSkinButton11: TbsSkinButton;
|
||
|
|
t_excel_billEX_ID: TAutoIncField;
|
||
|
|
t_excel_billDSDesigner: TStringField;
|
||
|
|
t_excel_billDSDesigner2: TBlobField;
|
||
|
|
bsSkinButton1: TbsSkinButton;
|
||
|
|
Label1: TLabel;
|
||
|
|
DBEdit1: TDBEdit;
|
||
|
|
procedure FormShow(Sender: TObject);
|
||
|
|
procedure bsSkinButton11Click(Sender: TObject);
|
||
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
||
|
|
private
|
||
|
|
{ Private declarations }
|
||
|
|
public
|
||
|
|
{ Public declarations }
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
frm_ch_invoice_exp: Tfrm_ch_invoice_exp;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
uses u_main, my_sys_function;
|
||
|
|
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
procedure Tfrm_ch_invoice_exp.FormShow(Sender: TObject);
|
||
|
|
begin
|
||
|
|
|
||
|
|
t_excel_bill.open;
|
||
|
|
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Tfrm_ch_invoice_exp.bsSkinButton11Click(Sender: TObject);
|
||
|
|
begin
|
||
|
|
close;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Tfrm_ch_invoice_exp.bsSkinButton1Click(Sender: TObject);
|
||
|
|
begin
|
||
|
|
table_post(t_excel_bill);
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|