unit guibinman;

interface

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

type
  TForm39 = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Q_gbk: TQuery;
    DS_gbk: TDataSource;
    DBGrid1: TDBGrid;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    ComboBox1: TComboBox;
    ComboBox3: TComboBox;
    SpeedButton1: TSpeedButton;
    Q_lx: TQuery;
    Q_kh: TQuery;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox3KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure ComboBox3DropDown(Sender: TObject);
    procedure ComboBox3Select(Sender: TObject);
    procedure ComboBox1DropDown(Sender: TObject);
    procedure ComboBox1Select(Sender: TObject);
    procedure DBEdit1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form39: TForm39;

implementation

{$R *.dfm}

procedure TForm39.Button1Click(Sender: TObject);
begin
 dbedit1.OnExit:=dbedit1exit;
 Q_gbk.Append;
 dbedit1.Clear;
 dbedit2.Clear;
 dbedit3.Clear;
 dbedit4.Clear;
 dbedit5.Clear;
 button4.Enabled:=True;
 dbedit1.SetFocus;
 end;

procedure TForm39.FormShow(Sender: TObject);
begin
 Q_gbk.Active:=true;
 button4.Enabled:=False;
 button2.Enabled:=False;
 button3.Enabled:=False;
 dbedit1.Clear;
 dbedit2.Clear;
 dbedit3.Clear;
 dbedit4.Clear;
 dbedit5.Clear;
 Q_lx.Active:=False;
 Q_lx.Active:=true;
 while not Q_lx.Eof do
 begin
   combobox1.Items.Add(Q_lx.fieldbyname('lx').asstring);
   Q_lx.Next;
 end;
end;

procedure TForm39.DBGrid1CellClick(Column: TColumn);
begin
 button2.Enabled:=True;
 button3.Enabled:=true;
end;

procedure TForm39.Button2Click(Sender: TObject);
begin
 dbedit1.OnExit:=nil;
 Q_gbk.Edit;
 dbedit1.SetFocus;
 button4.Enabled:=True;
 end;

procedure TForm39.Button4Click(Sender: TObject);
begin
 Q_gbk.Post;
 Q_gbk.Active:=False;
 Q_gbk.Active:=True;
  dbedit1.Clear;
 dbedit2.Clear;
 dbedit3.Clear;
 dbedit4.Clear;
 dbedit5.Clear;
 button2.Enabled:=false;
 button3.Enabled:=false;
 button4.Enabled:=false;
 Q_lx.Active:=false;
 Q_lx.Active:=True;
 while not Q_lx.Eof do
 begin
   combobox1.Items.Add(Q_lx.fieldbyname('lx').asstring);
   Q_lx.Next;
 end;
 end;

procedure TForm39.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 end;
end;

procedure TForm39.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 end;
end;

procedure TForm39.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 end;
end;

procedure TForm39.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 end;
end;

procedure TForm39.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 end;
end;

procedure TForm39.ComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 end;
end;

procedure TForm39.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 end;
end;

procedure TForm39.ComboBox3KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 end;
end;

procedure TForm39.SpeedButton1Click(Sender: TObject);
begin
close;
end;

procedure TForm39.Button3Click(Sender: TObject);
begin
    if MessageBox(0,PChar('確實要刪除嗎？'),'刪除',MB_ICONQUESTION or MB_YESNO)=IDYes then
    begin
      Q_gbk.Delete;
    end
    else
    begin
    Abort;
    end;
end;

procedure TForm39.ComboBox3DropDown(Sender: TObject);
begin
 combobox3.Width:=40;
end;

procedure TForm39.ComboBox3Select(Sender: TObject);
begin
dbedit5.Text:=combobox3.Text;
combobox3.Width:=19;
end;

procedure TForm39.ComboBox1DropDown(Sender: TObject);
begin
 combobox1.Width:=50;
end;

procedure TForm39.ComboBox1Select(Sender: TObject);
begin
 dbedit2.Text:=combobox1.Text;
 combobox1.Width:=19;
end;

procedure TForm39.DBEdit1Exit(Sender: TObject);
begin
Q_kh.Close;
Q_kh.SQL.Clear;
Q_kh.SQL.Add('select * from guibin where bh='''+dbedit1.Text+'''');
Q_kh.Open;
if Q_kh.RecordCount<>0 then
     begin
     MessageDlg('您輸入的卡號有重復，請重新輸入！',mtError,[mbok],0);
     dbedit1.SetFocus;
     end;
end;

end.