zhantao.pas

来自「pasa人力资源考勤管理系统」· PAS 代码 · 共 210 行

unit zhantao;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Grids, Wwdbigrd,adodb,db, Wwdbgrid, Mask, DBCtrls,
  wwdblook, Menus;

type
  TFormzhantao = class(TForm)
    GroupBox1: TGroupBox;
    wwDBGrid1: TwwDBGrid;
    Splitter1: TSplitter;
    GroupBox2: TGroupBox;
    wwDBGrid2: TwwDBGrid;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Panel1: TPanel;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Button8: TButton;
    Button9: TButton;
    Panel2: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Button10: TButton;
    Button11: TButton;
    DBEdit2: TDBEdit;
    Button12: TButton;
    ADODataSet1: TADODataSet;
    wwDBLookupCombo1: TwwDBLookupCombo;
    ADOQuery1: TADOQuery;
    Label4: TLabel;
    DBEdit3: TDBEdit;
    Label5: TLabel;
    ADODataSet1changechinename: TStringField;
    ADODataSet1name: TStringField;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    procedure Button7Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button9Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure DBEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure N1Click(Sender: TObject);
  private
    k:string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formzhantao: TFormzhantao;

implementation

uses datamol, addzt, Unit6, addzt1;

{$R *.DFM}

procedure TFormzhantao.Button7Click(Sender: TObject);
begin
 close;
end;

procedure TFormzhantao.Button1Click(Sender: TObject);
begin

 datamod.ADOzt.Insert;
 panel1.Visible:=true;
end;

procedure TFormzhantao.FormCreate(Sender: TObject);
begin
 panel1.Visible:=false;
 panel2.Visible:=false;
 adodataset1.Close;
 adodataset1.Open;
 with datamod do
 begin
  adozt.Close;
  adozt.Open;
  adoztandp.Close;
  adoztandp.open;
 end;
end;

procedure TFormzhantao.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  datamod.ADOzt.Close;
  datamod.ADOztandp.close;
  adodataset1.Close;
  action:=cafree;
  formzhantao:=nil;
end;

procedure TFormzhantao.Button9Click(Sender: TObject);
begin
 datamod.ADOzt.Cancel;
 panel1.Visible:=false;
end;

procedure TFormzhantao.Button8Click(Sender: TObject);
begin
 datamod.ADOzt.Post;
 panel1.Visible:=false;
end;

procedure TFormzhantao.Button2Click(Sender: TObject);
begin
 datamod.ADOzt.Edit;
 panel1.Visible:=true;
end;

procedure TFormzhantao.Button3Click(Sender: TObject);
begin
if application.MessageBox('确定要删除吗？','提示',mb_okcancel+mb_iconwarning)=idok then
begin
 adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.sql.Text:='delete ztandp where ztid='''+datamod.ADOzt.fieldbyname('ztid').asstring+'''';
 adoquery1.ExecSQL;
 datamod.ADOzt.Delete;
 
end;
end;

procedure TFormzhantao.Button6Click(Sender: TObject);
begin
 panel2.Visible:=true;
 datamod.adoztandp.Insert;
 datamod.ADOztandp.FieldByName('ztid').asinteger:=datamod.adozt.fieldbyname('ztid').asinteger;
 datamod.ADOztandp.FieldByName('ztname').asstring:=datamod.adozt.fieldbyname('ztname').asString;
end;

procedure TFormzhantao.Button10Click(Sender: TObject);
begin

if datamod.ADOztandp.State=dsinsert then
 datamod.ADOztandp.FieldByName('penglishname').asstring:=adodataset1.fieldbyname('name').asstring;
if trim(dbedit2.Text)='' then
 dbedit3.text:=inttostr(0);
 datamod.adoztandp.post;
 panel2.Visible:=false;
end;

procedure TFormzhantao.Button11Click(Sender: TObject);
begin
 datamod.ADOztandp.Cancel;
 panel2.Visible:=false;
end;

procedure TFormzhantao.Button5Click(Sender: TObject);
begin

  datamod.ADOztandp.Edit;
  panel2.Visible:=true;
end;

procedure TFormzhantao.Button4Click(Sender: TObject);
begin
if application.MessageBox('确定要删除吗？','提示',mb_okcancel+mb_iconwarning)=idok then
 datamod.adoztandp.Delete;
end;

procedure TFormzhantao.Button12Click(Sender: TObject);
begin
 if not assigned(formaddzt1) then
  formaddzt1:=tformaddzt1.Create(self);
 formaddzt1.Show;

end;

procedure TFormzhantao.DBEdit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 k:=dbedit2.text;
end;

procedure TFormzhantao.N1Click(Sender: TObject);
begin
 if not assigned(formaddzt) then
  formaddzt:=tformaddzt.Create(self);
 formaddzt.Show;
 
end;

end.