tjsrunit1.~pas

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

unit TJSRUnit1;

interface

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

type
  TTJSRForm = 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);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TJSRForm: TTJSRForm;

implementation

uses MDUnit1, mainUnit1, TJZCUnit1;

{$R *.dfm}

procedure TTJSRForm.BitBtn2Click(Sender: TObject); //浏览
begin
 MD.ADOSRTable1.Active:=true;
end;

procedure TTJSRForm.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.ADOConnection1.Open;
      md.ADOSRQuery1.Close;
      md.ADOSRQuery1.SQL.Clear;
      md.ADOSRQuery1.SQL.Add('INSERT INTO 个人收入管理表');
      md.ADOSRQuery1.SQL.Add('(编号,个人收入日期,收入金额,收入类型,备注)');
      md.ADOSRQuery1.SQL.Add('VALUES(:BH,:RQ,:JE,:LX,:BZ)');
      md.ADOSRQuery1.Parameters.ParamByName('BH').Value:=edit4.Text;
      md.ADOSRQuery1.Parameters.ParamByName('RQ').Value:=strtodate(edit1.Text);
      md.ADOSRQuery1.Parameters.ParamByName('JE').Value:=edit2.Text;
      md.ADOSRQuery1.Parameters.ParamByName('LX').Value:=edit3.Text;
      md.ADOSRQuery1.Parameters.ParamByName('BZ').Value:=memo1.Text;
      edit4.SetFocus;
  try
   begin
    md.ADOSRQuery1.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.ADOSRTable1.Refresh;//刷新数据表
    md.ADOSRTable1.Active:=false;
    md.ADOSRTable1.Active:=true;
  end;
end;

procedure TTJSRForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 mainform.ToolButton3.Enabled:=true;
 mainform.n3.Enabled:=true;
 md.ADOSRTable1.Active:=false;
 free;
end;

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

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

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

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

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

end.