cw_kp.pas

结于初学者来说这对数据库是一个很好的例子

unit cw_kp;

interface

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

type
  TForm9 = class(TForm)
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    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;
    Q_gbk: TQuery;
    DS_gbk: TDataSource;
    Q_lx: TQuery;
    Q_kh: TQuery;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBEdit1Exit(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure ComboBox1DropDown(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1Select(Sender: TObject);
    procedure ComboBox3DropDown(Sender: TObject);
    procedure ComboBox3KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox3Select(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

{$R *.dfm}

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

procedure TForm9.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 TForm9.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;

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

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

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

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

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

procedure TForm9.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 TForm9.Button2Click(Sender: TObject);
begin
 dbedit1.OnExit:=nil;
 Q_gbk.Edit;
 dbedit1.SetFocus;
 button4.Enabled:=True;

end;

procedure TForm9.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 TForm9.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 TForm9.ComboBox1DropDown(Sender: TObject);
begin
 combobox1.Width:=50;

end;

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

end;

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

end;

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

end;

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

end;

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

end;

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

end;

end.