【delphi开源代码栏目提醒】:网学会员在delphi开源代码频道为大家收集整理了CX310Unit.pas提供大家参考,希望对大家有所帮助!
unit CX310Unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, PublicUnit, jpeg, ExtCtrls, Grids, DBGrids, DBCtrls, ComCtrls,
StdCtrls;
type
TCX310Form = class(TPublicUnit)
Panel1: TPanel;
Label1: TLabel;
Label3: TLabel;
Label5: TLabel;
ComboBox1: 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 Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
CX310Form: TCX310Form;
implementation
{$R *.dfm}
uses DMUnit;
procedure TCX310Form.Button9Click(Sender: TObject);
begin
inherited;
Close;
end;
procedure TCX310Form.CheckBox1Click(Sender: TObject);
begin
inherited; // 判断是否可用
DateTimePicker1.Enabled := CheckBox1.Checked;
DateTimePicker2.Enabled := CheckBox1.Checked;
end;
procedure TCX310Form.ComboBox1DropDown(Sender: TObject);
var
I: Integer;
begin
inherited;
combobox1.Clear;
with DM.Querytemp do
begin
SQL.clear;
SQl.Text := 'select 车牌号码 from 车辆资料 ';
Close;
Active := False;
prepared := False;
prepared := True;
Active := True;
if (recordcount > 0) then
first;
for i := 0 to recordcount - 1 do
begin //取得该列所有的数据到combobox2控件中
combobox1.Items.add(FieldByName('车牌号码').asstring);
next;
end;
end;
end;
procedure TCX310Form.Button7Click(Sender: TObject);
begin
inherited;
{--- 判断搜索的条件是否为空 ---}
if (Combobox1.Text <> '') then
begin
with DM.Querytemp do
begin
SQL.clear;
if CheckBox1.Checked then
SQl.Text := 'select * from 货运明细 where 车号 like '
+ #39 + '%' + trim(combobox1.Text) + '%' + #39 + 'and 日期 > #'
+ FormatDateTime('yyyy/mm/dd', DateTimePicker1.DateTime) + '# and 日期 < #' + FormatDateTime('yyyy/mm/dd', DateTimePicker2.DateTime) + '#'
else
SQl.Text := 'select * from 货运明细 where 车号 like '
+ #39 + '%' + trim(combobox1.Text) + '%' + #39;
Close;
Active := False;
prepared := False;
prepared := True;
Active := True;
open;
DBGrid2.DataSource := DM.dsQuerytemp;
DBNavigator2.DataSource := DM.dsQuerytemp;
end;
end
else
MessageBox(0, '搜寻条件错误', '错误', MB_OK + MB_ICONSTOP);
end;
end.
上一篇:
FrmDrivers.frm
下一篇:
哈弗F7 VS名爵HS,谁更懂得年轻人的心?