jsycx.pas

这是用Delphi编写的车辆管理系统。主要功能有档案管理

unit JSYCX;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, ComCtrls;

type
  TdriverCX = class(TForm)
    Label1: TLabel;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    ComboBox1: TComboBox;
    RadioButton2: TRadioButton;
    ComboBox2: TComboBox;
    RadioButton3: TRadioButton;
    ComboBox3: TComboBox;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    DateTimePicker1: TDateTimePicker;
    RadioButton6: TRadioButton;
    Edit1: TEdit;
    ComboBox4: TComboBox;
    procedure FormShow(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure ComboBox4Change(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  driverCX: TdriverCX;

implementation
uses unit2;

{$R *.dfm}

procedure TdriverCX.FormShow(Sender: TObject);
begin
combobox1.Clear;
combobox2.Clear;
combobox3.Clear;
with datamodule2.CarclassQ  do
begin
    close;
    sql.Clear;
    sql.Add('select * from carclass.dbf');
    open;
     while not eof do
      begin
      combobox3.Items.Add(fieldbyname('carclass').AsString);
      next;
      end;
    close;
    sql.Clear;
    sql.Add('select * from cardriver.dbf');
    open;
     while not eof do
      begin
      combobox1.Items.Add(fieldbyname('name').AsString);
      combobox2.Items.Add(fieldbyname('drivernum').AsString);
      next;
      end;
first;
end;
combobox1.ItemIndex:=0;
combobox2.ItemIndex:=0;
combobox3.ItemIndex:=0;
end;

procedure TdriverCX.RadioButton1Click(Sender: TObject);
begin
case  Tradiobutton(sender).Tag of
 1:
 begin
 edit1.enabled:=false;
 combobox1.Enabled:=true;
 combobox3.Enabled:=false;
 combobox2.Enabled:=false;
 combobox4.Enabled:=false;
 datetimepicker1.Enabled:=false;
 with datamodule2.CarclassQ  do
 begin
    close;
    sql.Clear;
    sql.Add('select * from cardriver.dbf where name=:Name1');
    parambyname('name1').AsString:=combobox1.Text;
    open;
 end;

 end;

 2:
 begin
 edit1.enabled:=false;
 combobox3.Enabled:=false;
 combobox2.Enabled:=true;
 combobox1.Enabled:=false;
 combobox4.Enabled:=false;
 datetimepicker1.Enabled:=false;
 with datamodule2.CarclassQ  do
 begin
    close;
    sql.Clear;
    sql.Add('select * from cardriver.dbf where drivernum=:driver1');
    parambyname('driver1').AsString:=combobox2.Text;
    open;
 end;

 end;

 3:
 begin
 edit1.enabled:=false;
 combobox2.Enabled:=false;
 combobox1.Enabled:=false;
 combobox3.Enabled:=true;
 combobox4.Enabled:=false;
 datetimepicker1.Enabled:=false;
 with datamodule2.CarclassQ  do
 begin
    close;
    sql.Clear;
    sql.Add('select * from cardriver.dbf where zhunjiacar=:class1');
    parambyname('class1').AsString:=combobox3.Text;
    open;
 end;

 end;
 4:
 begin
 edit1.enabled:=true;
  combobox3.Enabled:=false;
 combobox2.Enabled:=false;
 combobox1.Enabled:=false;
 combobox4.Enabled:=false;
datetimepicker1.Enabled:=false;
 with datamodule2.CarclassQ  do
 begin
    close;
    sql.Clear;
    sql.Add('select * from cardriver.dbf where jialing=:jialing');
     if trim(edit1.Text) = '' then
    parambyname('jialing').AsCurrency:=0
    else
    parambyname('jialing').AsCurrency:=strtoint(edit1.Text);
    open;
 end;

 end;
 5:
 begin
 edit1.enabled:=false;
 combobox3.Enabled:=false;
 combobox2.Enabled:=false;
 combobox1.Enabled:=false;
 combobox4.Enabled:=true;
 datetimepicker1.Enabled:=true;
  with datamodule2.CarclassQ  do
 begin
    close;
    sql.Clear;
    if combobox4.Text='之前' then
    sql.Add('select * from cardriver.dbf where borndt < :bdate');
    if combobox4.Text='当天' then
    sql.Add('select * from cardriver.dbf where borndt = :bdate');
    if combobox4.Text='之后' then
    sql.Add('select * from cardriver.dbf where borndt > :bdate');
    parambyname('bdate').AsDate:=datetimepicker1.Date;
    open;
 end;

 end;


 6:
  begin
 edit1.enabled:=false;
 combobox3.Enabled:=false;
 combobox2.Enabled:=false;
 combobox1.Enabled:=false;
 combobox4.Enabled:=false;
datetimepicker1.Enabled:=false;
 with datamodule2.CarclassQ  do
 begin
    close;
    sql.Clear;
    sql.Add('select * from cardriver.dbf where zhengjiany<(:zdate)');
    parambyname('zdate').AsDate:=Date;
    open;
 end;
 end;
end;

end;


procedure TdriverCX.ComboBox1Change(Sender: TObject);
begin
with datamodule2.CarclassQ  do
 begin
    close;
    sql.Clear;
    sql.Add('select * from cardriver.dbf where name like :Name1');
    parambyname('name1').AsString:=combobox1.Text+'%';
    open;
 end;
end;

procedure TdriverCX.ComboBox2Change(Sender: TObject);
begin
with datamodule2.CarclassQ  do
 begin
    close;
    sql.Clear;
    sql.Add('select * from cardriver.dbf where drivernum like :driver1');
    parambyname('driver1').AsString:=combobox2.Text+'%';
    open;
 end;
end;

procedure TdriverCX.ComboBox4Change(Sender: TObject);
begin
 with datamodule2.CarclassQ  do
 begin
    close;
    sql.Clear;
    if combobox4.Text='之前' then
    sql.Add('select * from cardriver.dbf where borndt < :bdate');
    if combobox4.Text='当天' then
    sql.Add('select * from cardriver.dbf where borndt = :bdate');
    if combobox4.Text='之后' then
    sql.Add('select * from cardriver.dbf where borndt > :bdate');
    parambyname('bdate').AsDate:=datetimepicker1.Date;
    open;
 end;

end;

procedure TdriverCX.ComboBox3Change(Sender: TObject);
begin
with datamodule2.CarclassQ  do
 begin
    close;
    sql.Clear;
    sql.Add('select * from cardriver.dbf where zhunjiacar=:class1');
    parambyname('class1').AsString:=combobox3.Text;
    open;
 end;
end;




procedure TdriverCX.Edit1Change(Sender: TObject);
begin
with datamodule2.CarclassQ  do
 begin
    close;
    sql.Clear;
    sql.Add('select * from cardriver.dbf where jialing=:jialing');
    if trim(edit1.Text) = '' then
    parambyname('jialing').AsCurrency:=0
    else
    parambyname('jialing').AsCurrency:=strtoint(edit1.Text);
    open;
 end;

end;

procedure TdriverCX.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',Chr(vk_Back)]) then
key:=#0;
end;

end.