?? khxxcx.~pas
字號:
unit khxxcx;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Buttons, ExtCtrls, DB, Grids, DBGrids;
type
TForm1 = class(TForm)
Panel2: TPanel;
Panel1: TPanel;
Label1: TLabel;
SpeedButton1: TSpeedButton;
ComboBox1: TComboBox;
Panel4: TPanel;
Label3: TLabel;
Label4: TLabel;
CheckBox2: TCheckBox;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Panel3: TPanel;
Label2: TLabel;
BitBtn8: TBitBtn;
CheckBox1: TCheckBox;
procedure FormShow(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Data2;
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
begin
ComboBox1.Clear;
DataSource1.DataSet := nil;
CheckBox1.Checked := False;
CheckBox1.Checked := False;
with Datam.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select Distinct 客戶名稱 from 客戶信息反饋表');
Open;
end;
if Datam.ADOQuery1.RecordCount >0 then
begin
while Not Datam.ADOQuery1.Eof do
begin
ComboBox1.Items.Add(Datam.ADOQuery1.FieldByName('客戶名稱').AsString);
Datam.ADOQuery1.Next;
end;
end;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if Trim(ComboBox1.Text)<>'' then
begin
if CheckBox2.Checked = False then
begin
with Datam.ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('select * from 客戶信息反饋表 where 客戶名稱 = :a');
Parameters.ParamByName('a').Value := Trim(ComboBox1.Text);
Open;
end;
if Datam.ADOQuery2.RecordCount>0 then
DataSource1.DataSet := Datam.ADOQuery2
else
DataSource1.DataSet := Nil;
end
else
begin
with Datam.ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('select * from 客戶信息反饋表 where 客戶名稱 = :a and (反饋時間>= :b and 反饋時間 <= :c)');
Parameters.ParamByName('a').Value := Trim(ComboBox1.Text);
Parameters.ParamByName('b').Value := Int(DateTimePicker1.Date);
Parameters.ParamByName('c').Value := Int(DateTimePicker2.Date)+0.9998;
Open;
end;
if Datam.ADOQuery2.RecordCount>0 then
DataSource1.DataSet := Datam.ADOQuery2
else
DataSource1.DataSet := Nil;
end;
end;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked = True then
begin
with Datam.ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('select * from 客戶信息反饋表');
Open;
end;
if Datam.ADOQuery2.RecordCount>0 then
DataSource1.DataSet := Datam.ADOQuery2
else
DataSource1.DataSet := Nil;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -