unit5.pas

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

unit Unit5;

interface

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

type
  Tworker = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Label8: TLabel;
    ComboBox1: TComboBox;
    Label9: TLabel;
    Edit8: TEdit;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    DBNavigator1: TDBNavigator;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    DataSource2: TDataSource;
    Table1: TTable;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure Edit8KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  worker: Tworker;

implementation

{$R *.dfm}

procedure Tworker.BitBtn2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
end;

procedure Tworker.BitBtn1Click(Sender: TObject);
begin
 Table1.Active:=false;
 Table1.Active:=true;
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 edit5.Text='' then
begin
messagebeep(0);
showmessage('"进厂日期"不能为空');
edit5.SetFocus;
exit;
end;
if edit6.Text='' then
begin
messagebeep(0);
showmessage('"小时工资"不能为空');
edit6.SetFocus;
exit;
end;
Table1.Filtered:=false;
if Table1.Locate('工号',Edit1.Text,[locaseinsensitive])
  then
   begin
   messagebeep(0);
   showmessage('对不起,此工号已存在');
   Table1.Filtered:=false;
   Table1.Filter:='工号'+'='+''''+edit1.Text+'''';
   Table1.Filtered:=true;
   exit;
   end
   else
   begin
  Table1.Active:=false;
  Table1.Active:=true;
  Table1.AppendRecord([Edit1.Text,Edit2.Text,edit6.Text,edit4.text,Edit5.text,
  Edit3.text,Edit7.text]);
  messagebeep(0);
  showmessage('登记成功');
  end;
end;

procedure Tworker.BitBtn6Click(Sender: TObject);
begin
 Table1.Active:=false;
 Table1.Active:=true;
if edit8.Text='' then
begin
messagebeep(0);
showmessage('请输入查询值');
edit6.SetFocus;
exit;
end;
Table1.Filtered:=false;
if Table1.Locate(ComboBox1.Text,edit8.Text,[locaseinsensitive]) then
   begin
   Table1.Filter:=ComboBox1.Text+'='+''''+edit8.Text+'''';
   Table1.Filtered:=true;
   exit;
   end
  else
   begin
   messagebeep(0);
   showmessage('没有此记录');
   edit8.SetFocus;
   exit;
   end;
end;
procedure Tworker.BitBtn8Click(Sender: TObject);
begin
 Table1.Active:=false;
 Table1.Active:=true;
 Table1.Filtered:=false;
end;

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

procedure Tworker.BitBtn7Click(Sender: TObject);
begin
edit8.Clear;
end;

end.