unit4.~pas

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

unit Unit4;

interface

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

type
  TCarchaxun = class(TForm)
    Label1: TLabel;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    ComboBox1: TComboBox;
    RadioButton2: TRadioButton;
    ComboBox2: TComboBox;
    RadioButton3: TRadioButton;
    ComboBox3: TComboBox;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    procedure FormShow(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
    procedure ComboBox3KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2Enter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Carchaxun: TCarchaxun;

implementation
uses unit2;

{$R *.dfm}

procedure TCarchaxun.FormShow(Sender: TObject);
begin
combobox1.Clear;
combobox2.Clear;
combobox3.Clear;
with datamodule2.CardanganQ  do
begin
    close;
    sql.Clear;
    sql.Add('select * from cardangan.dbf');
    open;
    while not eof do
      begin
      combobox1.Items.Add(fieldbyname('carNum').AsString);
      next;
      end;
first;
end;

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;
     end;
with datamodule2.carclassQ  do
begin
    close;
    sql.Clear;
    sql.Add('select * from cardriver.dbf');
    open;
    while not eof do
      begin
      combobox2.Items.Add(fieldbyname('Name').AsString);
      next;
      end;

end;
end;

procedure TCarchaxun.RadioButton1Click(Sender: TObject);
begin
case  Tradiobutton(sender).Tag of
 1:
 begin
 combobox1.Enabled:=true;
 combobox3.Enabled:=false;
 combobox2.Enabled:=false;
 with datamodule2.CardanganQ  do
 begin
    close;
    sql.Clear;
    sql.Add('select * from cardangan.dbf where carnum=:carNum1');
    parambyname('carnum1').AsString:=combobox1.Text;
    open;
 end;

 end;

 2:
 begin
 combobox3.Enabled:=false;
 combobox2.Enabled:=true;
 combobox1.Enabled:=false;
 with datamodule2.CardanganQ  do
 begin
    close;
    sql.Clear;
    sql.Add('select * from cardangan.dbf where driver=:driver1');
    parambyname('driver1').AsString:=combobox2.Text;
    open;
 end;

 end;

 3:
 begin
 combobox2.Enabled:=false;
 combobox1.Enabled:=false;
 combobox3.Enabled:=true;
 with datamodule2.CardanganQ  do
 begin
    close;
    sql.Clear;
    sql.Add('select * from cardangan.dbf where carclass=:class1');
    parambyname('class1').AsString:=combobox3.Text;
    open;
 end;

 end;
 4:
 begin
  combobox3.Enabled:=false;
 combobox2.Enabled:=false;
 combobox1.Enabled:=false;
 with datamodule2.CardanganQ  do
 begin
    close;
    sql.Clear;
    sql.Add('select * from cardangan.dbf where yidong=true');
    open;
 end;

 end;
 5:
 begin
  combobox3.Enabled:=false;
 combobox2.Enabled:=false;
 combobox1.Enabled:=false;
 with datamodule2.CardanganQ  do
 begin
    close;
    sql.Clear;
    sql.Add('select * from cardangan.dbf where baofei=true');
    open;
 end;

 end;
 6:
 begin
 combobox3.Enabled:=false;
 combobox2.Enabled:=false;
 combobox1.Enabled:=false;
 with datamodule2.CardanganQ  do
 begin
    close;
    sql.Clear;
    sql.Add('select * from cardangan.dbf where nianjian=false');
    open;
 end;
 end;
 7:
 begin
 combobox3.Enabled:=false;
 combobox2.Enabled:=false;
 combobox1.Enabled:=false;
 with datamodule2.CardanganQ  do
 begin
    close;
    sql.Clear;
    sql.Add('select * from cardangan.dbf where baoxian=false');
    open;
 end;
 end;

end;

end;
procedure TCarchaxun.ComboBox1Change(Sender: TObject);
begin
with datamodule2.CardanganQ  do
 begin
    close;
    sql.Clear;
    sql.Add('select * from cardangan.dbf where carnum like :carNum1');
    parambyname('carnum1').AsString:=combobox1.Text+'%';
    open;
 end;
end;

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

procedure TCarchaxun.ComboBox3Change(Sender: TObject);
begin
with datamodule2.CardanganQ  do
 begin
    close;
    sql.Clear;
    sql.Add('select * from cardangan.dbf where carclass=:class1');
    parambyname('class1').AsString:=combobox3.Text;
    open;
 end;
end;

procedure TCarchaxun.ComboBox3KeyPress(Sender: TObject; var Key: Char);
begin
key:=#0;
end;

procedure TCarchaxun.ComboBox2Enter(Sender: TObject);
begin
with datamodule2.CardanganQ  do
 begin
    close;
    sql.Clear;
    sql.Add('select * from cardangan.dbf where driver = :driver1');
    parambyname('driver1').AsString:=combobox2.Text;
    open;
 end;
end;

end.