?? infindunit.~pas
字號:
unit infindunit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, ImgList, ComCtrls, ToolWin,
Grids, DBGrids;
type
Tinfindfrm = class(TForm)
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ImageList1: TImageList;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
CheckBox1: TCheckBox;
Label5: TLabel;
Label6: TLabel;
Splitter1: TSplitter;
CheckBox2: TCheckBox;
Panel2: TPanel;
Panel3: TPanel;
Label7: TLabel;
Label8: TLabel;
DBGrid1: TDBGrid;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Label9: TLabel;
Label10: TLabel;
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
infindfrm: Tinfindfrm;
implementation
uses aboutboxunit, main, datamoduleUnit;
{$R *.dfm}
procedure Tinfindfrm.ToolButton5Click(Sender: TObject);
begin
infindfrm.Close;
end;
procedure Tinfindfrm.ToolButton1Click(Sender: TObject);
var i,count:integer;
begin
if edit1.Text<>'' then
begin
datamodule2.ADSinfind.Filter:='供應(yīng)商編號='+''''+edit1.Text+'''';
datamodule2.ADSinfind.Filtered:=true;
datamodule2.ADSinfind.Open;
end
{ else if edit2.Text<>'' then
begin
datamodule1.ADSinfind.Filter:='商品編號='+edit2.Text;
datamodule1.ADSinfind.Filtered:=true;
datamodule1.ADSinfind.Open;
end }
else if edit3.Text<>'' then
begin
datamodule2.ADSinfind.Filter:='公司名稱='+''''+edit3.Text+'''';
datamodule2.ADSinfind.Filtered:=true;
datamodule2.ADSinfind.Open;
end
{ else if edit4.Text<>'' then
begin
datamodule1.ADSinfind.Filter:='商品名稱='+edit4.Text;
datamodule1.ADSinfind.Filtered:=true;
datamodule1.ADSinfind.Open;
end }
else showmessage('No data put in!');
count:=0;
for i:=0 to datamodule2.ADSinfind.RecordCount-1 do
count:=count+1;
label9.Caption:=inttostr(count);
end;
procedure Tinfindfrm.ToolButton3Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
end;
procedure Tinfindfrm.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then
begin
datetimepicker1.Enabled:=true;
datetimepicker2.Enabled:=true;
end;
end;
procedure Tinfindfrm.FormCreate(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -