?? ghsxscx1.pas
字號:
unit ghsxscx1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
dxPSCore, dxPSdxTLLnk, dxPSdxDBCtrlLnk, dxPSdxDBGrLnk, Db, ADODB,
dxDBCtrl, dxDBGrid, dxTL, dxDBTLCl, dxGrClms, dxCntner, ComCtrls,
StdCtrls, ExtCtrls;
type
Tghsxscx = class(TForm)
Panel1: TPanel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
dxComponentPrinter1: TdxComponentPrinter;
ADOQuery1ghscode: TStringField;
ADOQuery1ghaname: TStringField;
ADOQuery1je: TBCDField;
ADOQuery1zkje: TBCDField;
ADOQuery1jhje: TBCDField;
ADOQuery1mlje: TBCDField;
SaveDialog1: TSaveDialog;
Button3: TButton;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
dxDBGrid1: TdxDBGrid;
TabSheet2: TTabSheet;
dxDBGrid2: TdxDBGrid;
dxDBGrid1ghscode: TdxDBGridMaskColumn;
dxDBGrid1ghsname: TdxDBGridMaskColumn;
dxDBGrid1je: TdxDBGridMaskColumn;
dxDBGrid1zkje: TdxDBGridMaskColumn;
dxDBGrid1jhje: TdxDBGridMaskColumn;
dxDBGrid1mlje: TdxDBGridMaskColumn;
DataSource2: TDataSource;
ADOQuery2: TADOQuery;
StringField3: TStringField;
StringField4: TStringField;
BCDField1: TBCDField;
BCDField2: TBCDField;
BCDField3: TBCDField;
BCDField4: TBCDField;
BCDField5: TBCDField;
BCDField6: TBCDField;
BCDField7: TBCDField;
dxDBGrid2spcode: TdxDBGridMaskColumn;
dxDBGrid2spname: TdxDBGridMaskColumn;
dxDBGrid2sl: TdxDBGridMaskColumn;
dxDBGrid2dj: TdxDBGridMaskColumn;
dxDBGrid2je: TdxDBGridMaskColumn;
dxDBGrid2zkje: TdxDBGridMaskColumn;
dxDBGrid2jhj: TdxDBGridMaskColumn;
dxDBGrid2jhje: TdxDBGridMaskColumn;
dxDBGrid2mlje: TdxDBGridMaskColumn;
dxComponentPrinter1Link1: TdxDBGridReportLink;
dxComponentPrinter2: TdxComponentPrinter;
dxDBGridReportLink1: TdxDBGridReportLink;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
ghsxscx: Tghsxscx;
implementation
uses MainForm1;
{$R *.DFM}
procedure Tghsxscx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := cafree;
end;
procedure Tghsxscx.Button2Click(Sender: TObject);
begin
if PageControl1.ActivePageIndex = 0 then
dxComponentPrinter1.Preview(true, nil)
else
dxComponentPrinter2.Preview(true, nil);
end;
procedure Tghsxscx.Button1Click(Sender: TObject);
begin
ADOQuery1.close;
ADOQuery1.Parameters[0].Value := DateTimePicker1.Date;
ADOQuery1.Parameters[1].Value := DateTimePicker2.Date;
ADOQuery1.Parameters[2].Value := Edit3.text + '%';
ADOQuery1.open;
end;
procedure Tghsxscx.FormCreate(Sender: TObject);
begin
DateTimePicker1.DateTime := MainForm.DateTimePicker2.DateTime;
DateTimePicker2.DateTime := MainForm.DateTimePicker1.DateTime;
end;
procedure Tghsxscx.Button3Click(Sender: TObject);
begin
SaveDialog1.Filter := 'Excel表格|*.xls';
if SaveDialog1.Execute then
begin
if PageControl1.ActivePageIndex = 0 then dxDBGrid1.SaveToXLS(SaveDialog1.FileName, true)
else dxDBGrid2.SaveToXLS(SaveDialog1.FileName, true);
Application.MessageBox('文件已成功導出.', '提示', MB_OK + MB_ICONINFORMATION);
end;
end;
procedure Tghsxscx.PageControl1Change(Sender: TObject);
begin
try
if ADOQuery1.Active = false then
begin
PageControl1.ActivePageIndex := 0;
exit;
end;
if ADOQuery1.fieldbyname('ghscode').asstring = '' then
begin
PageControl1.ActivePageIndex := 0;
exit;
end;
ADOQuery2.close;
ADOQuery2.Parameters[0].Value := DateTimePicker1.Date;
ADOQuery2.Parameters[1].Value := DateTimePicker2.Date;
ADOQuery2.Parameters[2].Value := dxDBGrid1.SelectedNodes[0].Strings[0];
ADOQuery2.open;
except
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -