?? unit5.pas
字號:
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,unit2, StdCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB, QuickRpt,
XPMenu;
(* aaaaaaaaaaaaaaaaaaaaaaaaaaaaa*)
{用于進貨查詢}
(* bbbbbbbbbbbbbbbbbbbbbbbbbbbbb*)
type
TForm5 = class(TForm)
GroupBox1: TGroupBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
Panel1: TPanel;
Panel3: TPanel;
Panel2: TPanel;
Panel4: TPanel;
Label1: TLabel;
y1: TComboBox;
m1: TComboBox;
d1: TComboBox;
Label2: TLabel;
d2: TComboBox;
y2: TComboBox;
m2: TComboBox;
Edit1: TEdit;
Label3: TLabel;
Label4: TLabel;
Edit2: TEdit;
Label5: TLabel;
Edit3: TEdit;
Button1: TButton;
DBGrid1: TDBGrid;
Button2: TButton;
Button3: TButton;
XPMenu1: TXPMenu;
procedure CheckBox1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure CheckBox4Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
db1:tadoquery;
source:tdatasource;
{ Public declarations }
end;
var
Form5: TForm5;
implementation
{$R *.dfm}
uses unit7;
procedure TForm5.CheckBox1Click(Sender: TObject);
begin
panel1.Visible:=checkbox1.Checked;
end;
procedure TForm5.Button1Click(Sender: TObject);
//SELECT * FROM 進貨詳單 WHERE (進貨時間=#5/5/2004#); 時間查詢的一個示例。
begin
db1:=Tadoquery.Create(nil);
source:=tdatasource.Create(nil);
db1.Connection:=dbs.ADOConnection1;
source.DataSet:=db1;
dbgrid1.DataSource:=source;//一些基本的設置
db1.Close;
db1.SQL.Clear;
if checkbox1.Checked then //按時間段來查詢
begin
db1.SQL.Add('select * from 進貨詳單 where 進貨時間>=');
db1.sql.add(format('#%s/%s/%s#',[m1.text,d1.text,y1.text]));
db1.sql.add(' and 進貨時間<=');
db1.sql.add(format('#%s/%s/%s#',[m2.text,d2.text,y2.text]));
end
else
db1.SQL.add('select * from 進貨詳單 where ((進貨時間)>#1/1/1990#)');
if checkbox2.Checked then //按供供方姓名查詢
db1.SQL.Add(' and 供貸方='''+edit1.text+'''');
if checkbox3.Checked then //按照某種型號查詢
db1.sql.Add(' and 型號='''+edit2.Text+'''');
if checkbox4.Checked then //按照串號查詢
db1.SQL.add('and 串號='''+edit3.Text+'''');
db1.Open;
end;
procedure TForm5.CheckBox2Click(Sender: TObject);
begin
panel2.Visible:=checkbox2.Checked;
end;
procedure TForm5.CheckBox3Click(Sender: TObject);
begin
panel3.Visible:=checkbox3.Checked;
end;
procedure TForm5.CheckBox4Click(Sender: TObject);
begin
panel4.Visible:=checkbox4.Checked;
end;
procedure TForm5.Button2Click(Sender: TObject);
begin
button1.Click;
form7.rep1.DataSet:=db1;
form7.QRDBText1.DataSet:=db1;
form7.QRDBText2.DataSet:=db1;
form7.QRDBText3.DataSet:=db1;
form7.QRDBText4.DataSet:=db1;
form7.QRDBText5.DataSet:=db1;
form7.rep1.Preview;
end;
procedure TForm5.Button3Click(Sender: TObject);
begin
button1.Click;
form7.rep1.Print;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -