company.~pas

人事管理

unit company;

interface

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

type
 str1=array[1..60]of string;
  Tfrmcompany = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    edtconame: TEdit;
    edtcoadd: TEdit;
    edtphone: TEdit;
    edtmail: TEdit;
    edthpage: TEdit;
    Label6: TLabel;
    edtczhen: TEdit;
    spdok: TSpeedButton;
    spdcancel: TSpeedButton;
    spdmodify: TSpeedButton;
    spdsave: TSpeedButton;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
    procedure spdokClick(Sender: TObject);
    procedure spdcancelClick(Sender: TObject);
    procedure spdmodifyClick(Sender: TObject);
    procedure spdsaveClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmcompany: Tfrmcompany;

implementation

uses datarsgl, mainform;

{$R *.dfm}

procedure Tfrmcompany.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#27 then
close;
end;

procedure Tfrmcompany.FormActivate(Sender: TObject);
begin
edtconame.SetFocus; //get focus
end;
//判断是否为空值
function isempty1(sender:tobject):boolean;
begin
if (sender is tedit) then
    if trim((sender as tedit).Text)=''then
        begin
        result:=false;
        showmessage('请输入完整的记录');
        (sender as tedit).SetFocus ;
        exit;
        end;
       result:=true;
end;
procedure Tfrmcompany.spdokClick(Sender: TObject);
begin
with dmrsgl.companyqry do
  begin
  close;
  sql.Clear;
  sql.Add('select * from companytb');
  open;
  if recordcount<>0 then
      showmessage('已经存在相关公司基本资料,'+#13+'系统不允许添加资料,'+#13+'只可以修改资料.');
      spdok.Enabled:=false;
      exit;
if not isempty1(edtconame) then
   begin
   showmessage('请输入完整的公司名称');
   cancel;
   end
else
   begin
        append; //添加新记录
        fieldbyname('name').AsString:=trim(edtconame.Text);
        fieldbyname('address').AsString:=trim(edtcoadd.Text);
        fieldbyname('phone').AsString:=trim(edtphone.Text);
        fieldbyname('email').AsString:=trim(edtmail.Text);
        fieldbyname('homepage').AsString:=trim(edthpage.Text);
        fieldbyname('chuanzhen').AsString:=trim(edtczhen.Text);
        try
           if messagedlg('请确认输入的数据无误,然后写入系统!',mtconfirmation,[mbyes,mbno],0)=mryes then
              begin
              post; //确认写入数据库
              companyname:= edtconame.Text;
              frmcompany.close;
              end
           else
              begin
              showmessage('操作已经取消');
              cancel;
              exit;
              end;
       except
          on edatabaseerror do
          end;
        end;
     end;
end;

procedure Tfrmcompany.spdcancelClick(Sender: TObject);
begin
close;
end;

procedure Tfrmcompany.spdmodifyClick(Sender: TObject);
begin
with dmrsgl.companyqry do
begin
close;
sql.Clear;
sql.Add('select * from companytb');
open;
if RecordCount<>0 then
begin
edtconame.Text:=fieldbyname('name').AsString;
edtcoadd.Text:=fieldbyname('address').AsString;
edtczhen.Text:=fieldbyname('chuanzhen').AsString;
edthpage.Text:=fieldbyname('homepage').AsString;
edtmail.Text:=fieldbyname('email').AsString;
edtphone.Text:=fieldbyname('phone').AsString;
end
else
showmessage('当前不存在公司基本资料.');
spdok.Enabled:=true;
end;
end;

procedure Tfrmcompany.spdsaveClick(Sender: TObject);
begin
with dmrsgl.companyqry do
begin
close;
sql.Clear;
sql.Add('select * from companytb');
open;
if not isempty1(edtconame) then
   begin
   showmessage('请输入完整的公司名称');
   cancel;
   end
else
   begin
//保存修改资料
   edit;
   fieldbyname('name').AsString:=trim(edtconame.Text);
   fieldbyname('address').AsString:=trim(edtcoadd.Text);
   fieldbyname('phone').AsString:=trim(edtphone.Text);
   fieldbyname('email').AsString:=trim(edtmail.Text);
   fieldbyname('homepage').AsString:=trim(edthpage.Text);
   fieldbyname('chuanzhen').AsString:=trim(edtczhen.Text);
   try
           if messagedlg('请确认修改的数据无误,然后保存!',mtconfirmation,[mbyes,mbno],0)=mryes then
              begin
              post; //确认写入数据库
              companyname:= edtconame.Text;
              frmcompany.close;
              end
           else
              begin
              showmessage('修改操作已经取消');
              cancel;
              exit;
              end;
       except
          on edatabaseerror do
          end;
        end;
     end;
end;

procedure Tfrmcompany.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;//关闭子窗口
end;

end.