unit3.~pas

此为 汽车维修管理系统 采用ODBC驱动 控制面板里设置 数据库名:qcwxgl 说明：汽车维修管理 SQL服务器名:yangfeng 默认数据库名:qcwxgl

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, Grids, DBGrids, ExtCtrls, DB, DBTables,
  ComCtrls, DBCtrls;

type
  Tqcdj = class(TForm)
    Panel1: TPanel;
    Bevel1: TBevel;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ComboBox1: TComboBox;
    Label8: TLabel;
    Label9: TLabel;
    Edit8: TEdit;
    BitBtn1: TBitBtn;
    DataSource1: TDataSource;
    Query1: TQuery;
    StatusBar1: TStatusBar;
    Bevel2: TBevel;
    Label10: TLabel;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Memo1: TMemo;
    DBNavigator1: TDBNavigator;
    Table1: TTable;
    DataSource2: TDataSource;
    SpeedButton3: TSpeedButton;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    BitBtn2: TBitBtn;
    Database1: TDatabase;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
    procedure SpeedButton3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit8KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox1Change(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure Memo1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  qcdj: Tqcdj;

implementation

{$R *.dfm}

procedure Tqcdj.SpeedButton1Click(Sender: TObject);
begin
if edit1.Text='' then
begin
messagebeep(0);
showmessage('请输入汽车牌号');
edit1.SetFocus;
exit;
end;
if edit2.Text='' then
begin
messagebeep(0);
showmessage('请入汽型号');
edit2.SetFocus;
exit;
end;
if edit4.Text='' then
begin
messagebeep(0);
showmessage('"修理项目码"不能为空');
edit4.SetFocus;
exit;
end;
if edit5.Text='' then
begin
messagebeep(0);
showmessage('"车主"不能为空');
edit5.SetFocus;
exit;
end;
 with Query1 do
 begin
 close;
 SQL.Clear;
 SQL.Add('insert Z1 values(:a,:b,:c,:d,:e,:f,:g,:h)');
 parambyName('a').AsString:=Trim(edit1.Text);
 parambyName('b').AsString:=Trim(edit2.Text);
 parambyName('c').AsString:=Trim(edit3.Text);
 parambyName('d').AsString:=Trim(edit4.Text);
 parambyName('e').AsString:=Trim(edit5.Text);
 parambyName('f').AsString:=Trim(edit6.Text);
 parambyName('g').AsString:=Trim(edit7.Text);
 parambyName('h').AsString:=datetimetostr(now());
 ExecSQL;
 edit1.Clear;
 edit2.Clear;
 edit3.Clear;
 edit4.Clear;
 edit5.Clear;
 edit6.Clear;
 edit7.Clear;
 SQL.Clear;
 SQL.Add('select* from Z1');
 query1.Prepare;
 query1.Open;
 DBGrid1.DataSource:=DataSource1;
 messagebeep(0);
 showmessage('登记成功');
 Table1.Active:=false;
 Table1.Active:=true;
 end;
end;
procedure Tqcdj.SpeedButton2Click(Sender: TObject);
begin
 edit1.Clear;
 edit2.Clear;
 edit3.Clear;
 edit4.Clear;
 edit5.Clear;
 edit6.Clear;
 edit7.Clear;
end;

procedure Tqcdj.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
DBGrid1.DataSource:=DataSource2;
end;

procedure Tqcdj.SpeedButton3Click(Sender: TObject);
begin
 Query1.Close;
 Query1.SQL.Clear;
 Query1.SQL.Add('select * from Z1');
 Query1.open;
DBGrid1.DataSource:=DataSource1;
end;

procedure Tqcdj.BitBtn1Click(Sender: TObject);
begin
 if edit8.text='' then
 begin
 messagebeep(0);
 showmessage('请输入查询值');
 edit8.SetFocus;
 exit;
 end;
if  ComboBox1.Text='汽车牌号'   then
begin
 Query1.Close;
 Query1.SQL.Clear;
 Query1.SQL.Add('select * from Z1');
 Query1.SQL.Add('where 牌号=:str2');
 Query1.Params.ParamByName('str2').Value:=Trim(edit8.Text);
 Query1.open;
end;
if  ComboBox1.Text='修理项目码'   then
begin
 Query1.Close;
 Query1.SQL.Clear;
 Query1.SQL.Add('select * from Z1');
 Query1.SQL.Add('where 修理项目码=:str3');
 Query1.Params.ParamByName('str3').Value:=Trim(edit8.Text);
 Query1.open;
end;
if  ComboBox1.Text='汽车型号'   then
begin
 Query1.Close;
 Query1.SQL.Clear;
 Query1.SQL.Add('select * from Z1');
 Query1.SQL.Add('where 型号=:str4');
 Query1.Params.ParamByName('str4').Value:=Trim(edit8.Text);
 Query1.open;
end;
if  ComboBox1.Text='车主名'   then
begin
 Query1.Close;
 Query1.SQL.Clear;
 Query1.SQL.Add('select * from Z1');
 Query1.SQL.Add('where 车主名=:str5');
 Query1.Params.ParamByName('str5').Value:=Trim(edit8.Text);
 Query1.open;
end;
 if   Query1.Eof then
  begin
  messagebeep(0);
  showmessage('对不起!没有此记录!');
  exit;
  end;
  DBGrid1.DataSource:=DataSource1;
end;

procedure Tqcdj.BitBtn2Click(Sender: TObject);
begin
 Query1.Close;
 Query1.SQL.Clear;
 Query1.SQL.Add('select * from Z1');
 Query1.open;
end;

procedure Tqcdj.Edit8KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
BitBtn1.Click;
end;

procedure Tqcdj.ComboBox1Change(Sender: TObject);
begin
Edit8.SetFocus;
end;

procedure Tqcdj.BitBtn5Click(Sender: TObject);
begin
 Query1.Close;
 Query1.SQL.Clear;
 Query1.SQL.Add(Memo1.Lines.Text);
 query1.Open;
 if  Query1.Eof then
  begin
  messagebeep(0);
  showmessage('对不起!没有此记录!');
  exit;
  end;
 DBGrid1.DataSource:=DataSource1;
end;

procedure Tqcdj.BitBtn6Click(Sender: TObject);
begin
Memo1.Clear;
end;

procedure Tqcdj.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
BitBtn5.Click;
end;

procedure Tqcdj.FormCreate(Sender: TObject);
begin
table1.Active:=false;
table1.Active:=true;
end;

end.