mulchange.pas

来自「pasa人力资源考勤管理系统」· PAS 代码 · 共 524 行 · 第 1/2 页

unit mulchange;

interface

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

type
  TFormmulchange = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ComboBox2: TComboBox;
    Label5: TLabel;
    ComboBox3: TComboBox;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label6: TLabel;
    Label7: TLabel;
    ComboBox5: TComboBox;
    Label8: TLabel;
    ComboBox6: TComboBox;
    Splitter1: TSplitter;
    Panel2: TPanel;
    RG1: TRadioGroup;
    GroupBox3: TGroupBox;
    Label10: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    ListBox1: TListBox;
    ListBox2: TListBox;
    ComboBox7: TComboBox;
    Button1: TButton;
    Edit2: TEdit;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    DBText4: TDBText;
    DBText5: TDBText;
    DBText6: TDBText;
    Query1: TADOQuery;
    DataSource1: TDataSource;
    Query1scheno: TStringField;
    Query1schename: TStringField;
    Query1gotime1: TStringField;
    Query1outtime1: TStringField;
    Query1add1: TBooleanField;
    Query1continue1: TBooleanField;
    Query1decrease1: TBCDField;
    Query1daytime1: TBCDField;
    Query1ot1: TBooleanField;
    Query1gotime2: TStringField;
    Query1outtime2: TStringField;
    Query1add2: TBooleanField;
    Query1continue2: TBooleanField;
    Query1decrease2: TBCDField;
    Query1daytime2: TBCDField;
    Query1ot2: TBooleanField;
    Query1gotime3: TStringField;
    Query1outtime3: TStringField;
    Query1add3: TBooleanField;
    Query1continue3: TBooleanField;
    Query1decrease3: TBCDField;
    Query1daytime3: TBCDField;
    Query1ot3: TBooleanField;
    Query1gotime4: TStringField;
    Query1outtime4: TStringField;
    Query1add4: TBooleanField;
    Query1continue4: TBooleanField;
    Query1decrease4: TBCDField;
    Query1daytime4: TBCDField;
    Query1ot4: TBooleanField;
    Query1gotime5: TStringField;
    Query1outtime5: TStringField;
    Query1add5: TBooleanField;
    Query1continue5: TBooleanField;
    Query1decrease5: TBCDField;
    Query1daytime5: TBCDField;
    Query1ot5: TBooleanField;
    Query1effectdate: TDateTimeField;
    Query1inactivedate: TDateTimeField;
    Query1memo: TStringField;
    Query1operator: TStringField;
    Query1cdate: TDateTimeField;
    Query1otkind: TStringField;
    wwDBLookupCombo1: TwwDBLookupCombo;
    ADOdept: TADOQuery;
    wwDBLookupCombo2: TwwDBLookupCombo;
    ADObc: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure RG1Click(Sender: TObject);
    procedure ComboBox7KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox7Change(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ComboBox4Change(Sender: TObject);
    procedure wwDBLookupCombo1Change(Sender: TObject);
    procedure wwDBLookupCombo2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formmulchange: TFormmulchange;

implementation

uses datamol,publicfunction,main;

{$R *.DFM}

procedure TFormmulchange.FormCreate(Sender: TObject);
var qry:tadoquery;
begin
  adobc.Open;
  adodept.Open;
  qry:=tadoquery.Create(self);
  qry.Connection:=datamod.Database1;
  Qry.close;
  Qry.sql.text:='Select * from pub05010 order by dno';
  Qry.open;
  combobox7.Clear;
  //combobox1.Clear;
  While not Qry.eof do
    begin
       Combobox7.Items.add(Qry.fieldbyname('dno').asstring+copychar(' ',Qry.fieldbyname('dno').size-length(Qry.fieldbyname('dno').asstring))+'   '+Qry.fieldbyname('dept').asstring);
       //combobox1.Items.Add(qry.fieldbyname('dno').asstring);
       Qry.next;
    end;
 qry.Close;
 qry.SQL.Text:='select * from per01010 order by profno';
 qry.Open;
 combobox2.Clear;
 while not qry.eof do
   begin
     combobox2.Items.Add(qry.fieldbyname('profname').asstring);
     qry.Next;
   end;
//qry.Close;
 //qry.SQL.Text:='select distinct * from atd01010 order by scheno';
 //qry.Open;
 //combobox4.Clear;
 //while not qry.eof do
  // begin
     //combobox4.Items.Add(qry.fieldbyname('scheno').asstring);
   //  qry.Next;
   //end;
 qry.Close;
 qry.SQL.text:='select distinct comcode from pub06010 order by comcode';
 qry.open;
 combobox5.Clear;
 while not qry.Eof do
   begin
     combobox5.Items.add(qry.fieldbyname('comcode').asstring);
     qry.Next;
   end;
 qry.Close;
 qry.SQL.text:='select distinct * from atd03010 order by ruleno';
 qry.Open;
 combobox6.Clear;
 while not qry.Eof do
   begin
     combobox6.Items.Add(qry.fieldbyname('ruleno').asstring);
     qry.next;
   end;
end;

procedure TFormmulchange.ComboBox1Change(Sender: TObject);
var qry1:tadoquery;
begin
  qry1:=tadoquery.Create(self);
  qry1.Connection:=datamod.Database1;
  qry1.Close;
  qry1.SQL.Text:='select dept from pub05010 where dno='''+copy(wwDBLookupCombo1.Text,1,pos('',wwDBLookupCombo1.text))+'''';
  qry1.Open;
  label3.Caption:=qry1.fieldbyname('dept').asstring;
end;

procedure TFormmulchange.RG1Click(Sender: TObject);
var qry1:tadoquery;
begin
qry1:=tadoquery.Create(self);
qry1.Connection:=datamod.Database1;
if rg1.ItemIndex=0 then
    begin
       combobox7.enabled:=false;
       listbox1.enabled:=false;
       speedbutton1.enabled:=false;
       speedbutton2.enabled:=false;
       Listbox2.clear;
       Qry1.close;
       Qry1.sql.text:='Select * from per24010 where isnull(stoppay,0)=0 and leave=0 order by workno ';
       Qry1.open;
       while not Qry1.eof do
       begin
           listbox2.Items.Add(Qry1.fieldbyname('workno').asstring+copychar(' ',Qry1.fieldbyname('workno').size-length(Qry1.fieldbyname('workno').asstring))+'   '+
                              Qry1.fieldbyname('name').asstring+copychar(' ',Qry1.fieldbyname('name').size-length(Qry1.fieldbyname('name').asstring))+'   '+
                              Qry1.fieldbyname('sexname').asstring);
           Qry1.next;
       end;
    end else
    begin
       combobox7.enabled:=true;
       listbox1.enabled:=true;
       speedbutton1.enabled:=true;
       speedbutton2.enabled:=true;
    end;
end;


procedure TFormmulchange.ComboBox7KeyPress(Sender: TObject; var Key: Char);
var qry1:tadoquery;
begin
qry1:=tadoquery.Create(self);
qry1.Connection:=datamod.Database1;
if key=#13 then
   begin
     listbox1.Items.Clear;
     Qry1.close;
     Qry1.SQL.Text:='select * from pub05010 where dno='''+trim(copy(combobox7.text,1,pos('   ',combobox7.text)))+''' ';
     Qry1.Open;
     if Qry1.eof then
       Application.MessageBox('没有该部门，部门编号有误','Error',mb_ok+mb_iconerror)
     else begin
       Qry1.close;  //选出该部门所有的员工
       Qry1.SQL.Clear;
       Qry1.SQL.Text:='select workno,name,sexname from per24010 where deptno like '''+trim(copy(combobox7.text,1,pos('   ',combobox7.text)))+'%'' order by workno';
       Qry1.Open;
       while not Qry1.Eof do  //不为空，就把它加入listbox1(工号，姓名，性别)中，等待user选择
       begin
         listbox1.Items.Add(Qry1.fieldbyname('workno').asstring+copychar(' ',Qry1.fieldbyname('workno').size-length(Qry1.fieldbyname('workno').asstring))+'   '+
                            Qry1.fieldbyname('name').asstring+copychar(' ',Qry1.fieldbyname('name').size-length(Qry1.fieldbyname('name').asstring)));
         Qry1.Next;
       end;
     end;
     Qry1.Close;
   end;
end;