unit3.pas

函数查看器

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,unit1, DB, ADODB, Grids, DBGrids, ExtCtrls, StdCtrls, DBCtrls,
  Mask;

type
  TForm3 = class(TForm)
    _ado: TADOQuery;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    _data: TDataSource;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DBComboBox1: TDBComboBox;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    Label8: TLabel;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    _adotemp: TADOQuery;
    Label11: TLabel;
    DBComboBox2: TDBComboBox;
    Panel2: TPanel;
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit1Enter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button4Click(Sender: TObject);
begin
  _ado.Cancel;
  _ado.First;
  if _ado.RecordCount=0 then button2.Enabled:=false;
  if _ado.RecordCount=0 then button3.Enabled:=false;
end;

procedure TForm3.Button5Click(Sender: TObject);
begin
  _ado.Cancel;
  _ado.Prior;
  if _ado.RecordCount=0 then button2.Enabled:=false;
  if _ado.RecordCount=0 then button3.Enabled:=false;
end;

procedure TForm3.Button6Click(Sender: TObject);
begin
  _ado.Cancel;
  _ado.Next;
  if _ado.RecordCount=0 then button2.Enabled:=false;
  if _ado.RecordCount=0 then button3.Enabled:=false;
end;

procedure TForm3.Button7Click(Sender: TObject);
begin
  _ado.Cancel;
  _ado.Last;
  if _ado.RecordCount=0 then button2.Enabled:=false;
  if _ado.RecordCount=0 then button3.Enabled:=false;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
  if _ado.RecordCount=0 then
  begin
    _ado.Cancel;
    exit;
  end;
  if application.MessageBox(pchar('是否删除本条记录？'),'提示',MB_YESNO)=IDNO then exit;
  _ado.Delete;
  if _ado.RecordCount=0 then button2.Enabled:=false;
  if _ado.RecordCount=0 then button3.Enabled:=false;
end;

procedure TForm3.Button1Click(Sender: TObject);
var i:integer;
begin
  if (dbedit1.Text<>'') then button2click(sender);
  _adotemp.SQL.Clear;
  _adotemp.SQL.Add('select max(编码) as m from list');
  _adotemp.Open;
  if _adotemp.RecordCount=0 then i:=0 else i:=_adotemp.FieldByName('m').AsInteger;
  _ado.Cancel;
  _ado.Append;
  _ado.FieldByName('编码').AsInteger:=i+1;
  _ado.FieldByName('性别').AsString:='女士';
  _ado.FieldByName('邮编').AsInteger:=321000;
  _ado.FieldByName('职务').AsString:='会计';
  _ado.FieldByName('签到').AsString:='否';
  DBEdit1.SetFocus;
  button2.Enabled:=true;
  if _ado.RecordCount<>0 then button3.Enabled:=true;
end;

procedure TForm3.Button8Click(Sender: TObject);
begin
  form3.Close;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
  if (dbedit1.Text='') and (DBComboBox1.ItemIndex=-1) then
  begin
    Button1Click(Sender);
    exit;
  end;
  if dbedit1.Text='' then
  begin
    MessageBox(Handle,'请输入姓名！','提醒',MB_OK or MB_ICONWARNING);
    dbedit1.SetFocus;
    exit;
  end;
  _ado.Edit;
  _ado.Post;
  button3.Enabled:=true;
end;

procedure TForm3.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (key=#13) Then
  begin
    key:=#0;
    form3.Perform(WM_NEXTDLGCTL,0,0);
  end;
end;

procedure TForm3.DBEdit1Enter(Sender: TObject);
begin
  button2.Enabled:=true;
end;

end.