【delphi开源代码栏目提醒】:本文主要为网学会员提供CX210Unit.pas,希望对需要CX210Unit.pas网友有所帮助,学习一下!
unit CX210Unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, PublicUnit, jpeg, ExtCtrls, Grids, DBGrids, DBCtrls, ComCtrls,
StdCtrls;
type
TCX210Form = class(TPublicUnit)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label5: TLabel;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
Button7: TButton;
Button8: TButton;
Button9: TButton;
CheckBox1: TCheckBox;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
DBNavigator1: TDBNavigator;
Panel2: TPanel;
Panel3: TPanel;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
DBNavigator2: TDBNavigator;
Label4: TLabel;
procedure Button9Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure ComboBox1DropDown(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
CX210Form: TCX210Form;
implementation
{$R *.dfm}
uses DMUnit;
procedure TCX210Form.Button9Click(Sender: TObject);
begin
inherited;
Close;
end;
procedure TCX210Form.CheckBox1Click(Sender: TObject);
begin
inherited; // 判断是否可用
DateTimePicker1.Enabled := CheckBox1.Checked;
DateTimePicker2.Enabled := CheckBox1.Checked;
end;
procedure TCX210Form.ComboBox1DropDown(Sender: TObject);
var
i: Integer;
begin
inherited;
ComBobox1.Clear;
for i := 0 to DM.HYZY.FieldList.Count - 1 do
begin //取得所有的列名作为搜索条件
ComBobox1.Items.Add(DM.HYZY.Fields[i].FieldName);
end;
end;
procedure TCX210Form.ComboBox1Change(Sender: TObject);
var
I: Integer;
begin
inherited;
combobox2.Clear;
with DM.Querytemp do
begin
SQL.clear;
SQl.Text := 'select ' + trim(combobox1.Text) + ' from 货运作业总表 ';
Close;
Active := False;
prepared := False;
prepared := True;
Active := True;
if (recordcount > 0) then
first;
for i := 0 to recordcount - 1 do
begin //取得该列所有的数据到combobox2控件中
combobox2.Items.add(FieldByName(ComboBox1.Text).asstring);
next;
end;
end;
end;
procedure TCX210Form.Button7Click(Sender: TObject);
begin
inherited;
{--- 判断搜索的条件是否为空 ---}
if (Combobox1.Text <> '') and (Combobox2.Text <> '') then
begin
with DM.Querytemp do
begin
SQL.clear;
if CheckBox1.Checked then
SQl.Text := 'select * from 货运作业总表 where ' + trim(combobox1.Text) + ' like '
+ #39 + '%' + trim(combobox2.Text) + '%' + #39 + 'and 输入日期 > #'
+ FormatDateTime('yyyy/mm/dd', DateTimePicker1.DateTime) + '# and 输入日期 < #' + FormatDateTime('yyyy/mm/dd', DateTimePicker2.DateTime) + '#'
else
SQl.Text := 'select * from 货运作业总表 where ' + trim(combobox1.Text) + ' like '
+ #39 + '%' + trim(combobox2.Text) + '%' + #39;
Close;
Active := False;
prepared := False;
prepared := True;
Active := True;
open;
DBGrid1.DataSource := DM.dsQuerytemp;
DBNavigator1.DataSource := DM.dsQuerytemp;
end;
end
else
MessageBox(0, '搜寻条件错误', '错误', MB_OK + MB_ICONSTOP);
end;
end.
上一篇:
DrawPicture.cpp
下一篇:
还记得,那年的风车吗?