sdfunit.pas

不可多得的大型公司公资管理系统软件.该系统用DELPHI来实现.

unit SdfUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TSdf = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Edit4: TEdit;
    Label4: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Edit3: TEdit;
    Label3: TLabel;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit7KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Sdf: TSdf;

implementation

uses DataTUnit;


{$R *.DFM}


procedure TSdf.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key in[vk_RETURN] then
sendmessage(handle,wm_nextdlgctl,0,0);
end;

procedure TSdf.Edit1KeyPress(Sender: TObject; var Key: Char);
var
    i:integer;
    sy:string;
begin
if key=#13 then
    begin
      IF (LENGTH(EDIT1.TEXT)=0) or (length(edit1.text)>=4) THEN
         begin
            application.MessageBox('没有输入有效的字段值,请重输!!!','提示',mb_ok+mb_iconinformation);
            edit1.SetFocus;
          end
     else
     with datat.Table2 do
       begin
         sy:=edit1.text;
         if pchar(sy)<char('a') then
         begin
         indexname:='code';
         for i:=1 to (4-length(edit1.text)) do
         begin
         edit1.text:=' '+edit1.text;
         end;
         end
         else
         indexname:='xmdm';
         if NOT (findkey([edit1.text])) then
           BEGIN
              application.MessageBox('不存在这条纪录','提示',mb_ok+mb_iconinformation);
              edit1.setfocus;
              indexname:='';
           end
           else
           begin
{           edit2.text:=datam.table2.fieldbyname('name').asstring;
           edit4.text:=datam.table2.fieldbyname('ks').asstring;
           edit5.text:=datam.table2.fieldbyname('xmdm').asstring;
           edit3.text:=datam.table2.fieldbyname('df').asstring;
           edit6.text:=datam.table2.fieldbyname('kk').asstring;
           edit7.text:=datam.table2.fieldbyname('bk').asstring;}
           edit3.setfocus;
           end;
              indexname:='';
       end;
     end;
   end;
procedure TSdf.Edit7KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  begin
if key in[vk_RETURN] then
begin
  { datam.table2.edit;
   datam.Table2.FieldByName('df').asfloat:=strtofloat(edit3.text);
   datam.Table2.FieldByName('kk').asstring:=edit6.text;
   datam.Table2.FieldByName('bk').asfloat:=strtofloat(edit7.text);
    datam.Table2.FieldByName('xmdm').asstring:=edit5.text;


   datam.table2.post;
   datam.table2.Refresh;}
IF  (application.messagebox('继续录入吗?','消息框',mb_okcancel+mb_defbutton1+mb_iconquestion)
     =idok) then
     begin
      edit1.text:='';
      edit2.text:='';
      edit3.text:='';
      edit4.text:='';
      edit5.text:='';
      edit6.text:='';
      edit7.text:='';
      edit1.setfocus;
      end;
end;
end;
procedure TSdf.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then Close;
end;

end.