multi.pas

pasa人力资源考勤管理系统

unit multi;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  pub_input, Db, ADODB, StdCtrls, Buttons, ExtCtrls;

type
  TFormmulti = class(TFormpubinput)
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formmulti: TFormmulti;

implementation

uses datamol;

{$R *.DFM}

procedure TFormmulti.Button1Click(Sender: TObject);
var i,ygbhcd:integer;
    hangh:string;
begin
  with datamod do
  begin
     query1.close;
     query1.sql.clear;
     query1.sql.add('delete workno');
     adopublic.open;
     ygbhcd:=adopublicworknolength.AsInteger;
     For i:=0 to Listbox2.Items.Count -1 do
     begin
       hanGh:=Copy(Listbox2.Items[i],1,ygbhcd );
       query1.sql.add('insert into workno values ('''+hangh+''')');
     end;
     if listbox2.items.count>0 then query1.execsql;
     adopublic.close;
  end;
  close;
end;

procedure TFormmulti.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  formmulti:=nil;
end;

end.