tjzcunit1.~pas

这是一个Delphi很好很全面知识的实例

unit TJZCUnit1;

interface

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

type
  TTJZCForm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label4: TLabel;
    Panel1: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    BitBtn3: TBitBtn;
    Memo1: TMemo;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    BitBtn2: TBitBtn;
    menImageList1: TImageList;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Memo1KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TJZCForm: TTJZCForm;

implementation

uses MDUnit1, mainUnit1;

{$R *.dfm}

procedure TTJZCForm.BitBtn2Click(Sender: TObject);//浏览
begin
  md.ADOZCTable2.Active:=true;
end;

procedure TTJZCForm.BitBtn3Click(Sender: TObject);//添加
begin
if (edit4.Text='') then
      messagedlg('编号不可为空!',mtinformation,[mbok],0)
      else if (edit1.text='') then
      messagedlg('个人支出日期不可为空!',mtinformation,[mbok],0)
      else if (edit2.text='') then
      messagedlg('支出金额不可为空!',mtinformation,[mbok],0)
      else if (edit3.text='') then
      messagedlg('支出类型不可为空!',mtinformation,[mbok],0)
  else
      begin
        md.ADOZCQuery2.Close;
        md.ADOZCQuery2.SQL.Clear;
        md.ADOZCQuery2.SQL.Add('INSERT INTO 个人支出管理表');
        md.ADOZCQuery2.SQL.Add('(编号,个人支出日期,支出金额,支出类型,备注)');
        md.ADOZCQuery2.SQL.Add('VALUES(:BH,:RQ,:JE,:LX,:BZ)');
        md.ADOZCQuery2.Parameters.ParamByName('BH').Value:=edit4.Text;
        md.ADOZCQuery2.Parameters.ParamByName('RQ').Value:=strtodate(edit1.Text);
        md.ADOZCQuery2.Parameters.ParamByName('JE').Value:=edit2.Text;
        md.ADOZCQuery2.Parameters.ParamByName('LX').Value:=edit3.Text;
        md.ADOZCQuery2.Parameters.ParamByName('BZ').Value:=memo1.Text;
        edit4.SetFocus;
      try
       begin
        md.ADOZCQuery2.ExecSQL;
        edit1.text:='';
        edit2.text:='';
        edit3.text:='';
        edit4.text:='';
        memo1.text:='';
        edit4.SetFocus;
       end;
      except
        messagedlg('增加用户失败!'+chr(13)+'可能原因：记录重复或其他数据不符合要求。',mtinformation,[mbOK],0);
        exit;
      end;
    edit4.SetFocus;
    //md.ADOZCTable2.Refresh;
    md.ADOZCTable2.Active:=false;
    md.ADOZCTable2.Active:=true;
  end;
end;

procedure TTJZCForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  mainform.ToolButton4.Enabled:=true;
  mainform.N4.Enabled:=true;
  md.ADOZCTable2.Active:=false;
  free;
end;

procedure TTJZCForm.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  edit1.SetFocus;
end;

procedure TTJZCForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  edit2.SetFocus;
end;

procedure TTJZCForm.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  edit3.SetFocus;
end;

procedure TTJZCForm.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  memo1.SetFocus;
end;

procedure TTJZCForm.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
  bitbtn3.SetFocus;
  bitbtn3click(sender);
  end;
end;

procedure TTJZCForm.FormShow(Sender: TObject);
begin
md.ADOSRTable1.Active:=false;
end;

end.