dingdanman.pas

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

unit dingdanman;

interface

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

type
  TFormdingdanman = class(TFormaddzt)

    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    
  private  //procedure Button1Click(Sender: TObject);


    { Private declarations }
  public

    { Public declarations }
  end;

var
  Formdingdanman: TFormdingdanman;

implementation

uses datamol, publicfunction;

{$R *.DFM}

procedure TFormdingdanman.FormCreate(Sender: TObject);
begin
    groupbox1.Visible:=false;
    Qry1.close;
    Qry1.sql.text:='Select * from pub05010 ';
    Qry1.open;
    While not Qry1.eof do
    begin
       Combobox1.Items.add(Qry1.fieldbyname('dno').asstring+copychar(' ',Qry1.fieldbyname('dno').size-length(Qry1.fieldbyname('dno').asstring))+'   '+Qry1.fieldbyname('dept').asstring);
       Qry1.next;
    end;
end;

procedure TFormdingdanman.Button1Click(Sender: TObject);
var i,ygbh:integer;
begin
try
 with datamod do
 begin
   adopublic.open;
   ygbh:=adopublicworknolength.AsInteger;
   for i:=0 to formdingdanman.listbox2.Items.Count-1 do
   begin
     adoquery1.Close;
     adoquery1.SQL.Clear;
     adoquery1.SQL.Add('select deptno,name,prof from per24010 where workno='''+trim(copy(formdingdanman.listbox2.items[i],1,ygbh))+''' and leave<>1');
     adoquery1.open;
     if not adoquery1.eof then
     begin
       adoquery2.close;
       adoquery2.sql.clear;
       adoquery2.sql.add('insert into dingdanman select '''+adogoodsgoodsid.value+''','''+adoquery1.fieldbyname('deptno').asstring+''','''+trim(copy(formdingdanman.listbox2.items[i],1,ygbh))+''','''+adoquery1.fieldbyname('name').asstring+''','''+adoquery1.fieldbyname('prof').asstring+'''');
       adoquery2.ExecSQL;
     end
     else
     begin
       application.MessageBox(pchar('工号：'+trim(copy(formdingdanman.listbox2.items[i],1,ygbh))+'不存在'),'提示',mb_ok+mb_iconinformation);
     end;
   end;
   application.MessageBox('操作成功！','提示',mb_ok+mb_iconinformation);
   end;
   except
     application.MessageBox('操作失败！','提示',mb_ok+mb_iconinformation);
   end;
   close;
 end;
procedure TFormdingdanman.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  datamod.ADOdingdanman.Close;
  datamod.ADOdingdanman.open;

end;

end.