?? pasthcx1.~pas
字號:
unit pasthcx1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, dxCntner, dxEditor, dxEdLib, cxControls, cxContainer,
cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
cxDBLookupEdit, ExtCtrls, dxBar, dxBarExtItems, ComCtrls, Grids, DBGrids,
DB, ADODB,data;
type
Tthcx1 = class(TForm)
dxBarManager1: TdxBarManager;
dxBarLargeButton1: TdxBarLargeButton;
dxBarLargeButton2: TdxBarLargeButton;
dxBarLargeButton3: TdxBarLargeButton;
dxBarLargeButton5: TdxBarLargeButton;
dxBarLargeButton6: TdxBarLargeButton;
dxBarLargeButton4: TdxBarLargeButton;
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
Label7: TLabel;
Label8: TLabel;
Edit2: TEdit;
DateTimePicker1: TDateTimePicker;
DBGrid1: TDBGrid;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
ADOQuery2: TADOQuery;
DBGrid2: TDBGrid;
Splitter1: TSplitter;
ADOQuery3: TADOQuery;
DataSource2: TDataSource;
ADOQuery4: TADOQuery;
DataSource3: TDataSource;
dxBarButton1: TdxBarButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure dxBarLargeButton1Click(Sender: TObject);
procedure ADOQuery3AfterScroll(DataSet: TDataSet);
procedure dxBarLargeButton2Click(Sender: TObject);
procedure dxBarLargeButton4Click(Sender: TObject);
procedure dxBarButton1Click(Sender: TObject);
procedure dxBarLargeButton3Click(Sender: TObject);
procedure dxBarLargeButton5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
thcx1: Tthcx1;
implementation
{$R *.dfm}
procedure Tthcx1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;
procedure Tthcx1.FormDestroy(Sender: TObject);
begin
thcx1:=nil;
end;
procedure Tthcx1.FormCreate(Sender: TObject);
begin
// ADOQuery1.Open;
end;
procedure Tthcx1.dxBarLargeButton1Click(Sender: TObject);
var stemp:string;
begin
if RadioButton3.Checked then
stemp:='select * from tbBackUnit where BackType=''2''';
if RadioButton1.Checked then
stemp:='select * from tbBackUnit where BackType=''2'' and UnitName like ''%'+trim(edit2.Text)+'%''';
if RadioButton2.Checked then
stemp:='select * from tbBackUnit where BackType=''2'' and SaleDate ='+datetostr(DateTimePicker1.Date);
ADOQuery3.Close;
ADOQuery3.SQL.Text:=stemp;
ADOQuery3.Open;
end;
procedure Tthcx1.ADOQuery3AfterScroll(DataSet: TDataSet);
begin
ADOQuery4.Close;
ADOQuery4.SQL.Text :='select * from tbBackSubs where SaleId='''+ADOQuery3.fieldbyname('SaleId').AsString+'''';
ADOQuery4.Open;
end;
procedure Tthcx1.dxBarLargeButton2Click(Sender: TObject);
begin
if ADOQuery3.State in dseditmodes then ADOQuery3.Post ;
if ADOQuery4.State in dseditmodes then ADOQuery4.Post ;
end;
procedure Tthcx1.dxBarLargeButton4Click(Sender: TObject);
begin
close;
end;
procedure Tthcx1.dxBarButton1Click(Sender: TObject);
begin
adoquery4.Append;
end;
procedure Tthcx1.dxBarLargeButton3Click(Sender: TObject);
begin
adoquery4.Delete;
end;
procedure Tthcx1.dxBarLargeButton5Click(Sender: TObject);
begin
adoquery4.Close;
adoquery4.Open;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -