formcompany.pas

pasa人力资源考勤管理系统

//建立公司基本资料
unit formcompany;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, Db, DBTables, ADODB, ExtCtrls;

type
  Tformcom = class(TForm)
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    btnnew: TButton;
    btnmodify: TButton;
    DataSource1: TDataSource;
    btnok: TButton;
    btncancel: TButton;
    ADOTable1: TADOTable;
    DBNavigator1: TDBNavigator;
    ADOTable1name1: TStringField;
    ADOTable1name2: TStringField;
    ADOTable1name3: TStringField;
    ADOTable1tel: TStringField;
    ADOTable1fax: TStringField;
    ADOTable1email: TStringField;
    ADOTable1webadd: TStringField;
    ADOTable1comadd: TStringField;
    btndelete: TButton;
    btnexit: TButton;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    ADOTable1tax: TStringField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure btnnewClick(Sender: TObject);
    procedure btnokClick(Sender: TObject);
    procedure btncancelClick(Sender: TObject);
    procedure btnmodifyClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ADOTable1BeforePost(DataSet: TDataSet);
    procedure btndeleteClick(Sender: TObject);
    procedure btnexitClick(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formcom: Tformcom;

implementation

uses datamol, main,publicfunction;
{$R *.DFM}

procedure Tformcom.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    adotable1.close;
    action:=cafree;
    formcom:=nil; 
end;

procedure Tformcom.FormKeyPress(Sender: TObject; var Key: Char);
begin
      if key=#13 then
      begin
         key:=#0;
         selectnext(activecontrol,true,true);
      end;
end;

procedure Tformcom.btnnewClick(Sender: TObject);
begin
   if adotable1.CanModify then
     adotable1.Append ;
end;

procedure Tformcom.btnokClick(Sender: TObject);
var s:string;
begin
   if (adotable1.State =dsinsert) or (adotable1.State =dsedit) then
    begin
     adotable1.Post ;
      s:=formmain.caption;
      delete(s,1,pos('-',s)-1);
      formmain.caption:=adotable1name1.asstring+s;
      companyname1:=adotable1name1.asstring;
    end;
end;

procedure Tformcom.btncancelClick(Sender: TObject);
begin
  if (adotable1.State =dsinsert) or (adotable1.State=dsedit) then
    adotable1.Cancel;
end;

procedure Tformcom.btnmodifyClick(Sender: TObject);
begin
  if adotable1.CanModify then
    adotable1.Edit;
end;

procedure Tformcom.FormCreate(Sender: TObject);
begin
  adotable1.open;
end;

procedure Tformcom.ADOTable1BeforePost(DataSet: TDataSet);
begin
{  if  trim(adotable1.FieldByName('id').asstring)='' then
    begin
      adotable1.Cancel;
    end;
}end;

procedure Tformcom.btndeleteClick(Sender: TObject);
begin
   if messagedlg('你确定删除这条记录吗',mtconfirmation,[mbyes,mbno],0)=mryes then
     adotable1.Delete;
end;

procedure Tformcom.btnexitClick(Sender: TObject);
begin
  close;
end;

procedure Tformcom.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_F1 then
      begin
        //showmessage('ok!')
     //MessageDlg(Key + ' has been pressed', mtInformation, [mbOK], 0);
      Application.HelpFile :=Extractfilepath(application.ExeName)+ 'help\pasahelp.hlp';
      application.HelpJump('SHM_CONTENTS0050');
    end;
end;

end.