qianka.pas

pasa人力资源考勤管理系统

unit qianka;

interface

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

type
  TFormqianka = class(TForm)
    Panel1: TPanel;
    Bevel1: TBevel;
    Label1: TLabel;
    Label5: TLabel;
    Label15: TLabel;
    Label22: TLabel;
    Button5: TSpeedButton;
    Label9: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label31: TLabel;
    Panel2: TPanel;
    Label34: TLabel;
    Panel3: TPanel;
    Image1: TImage;
    Memo1: TMemo;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Label37: TLabel;
    ADODataSet1: TADODataSet;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    DBEdit25: TDBEdit;
    DBEdit26: TDBEdit;
    DBEdit27: TDBEdit;
    DBEdit28: TDBEdit;
    DBEdit29: TDBEdit;
    DataSource1: TDataSource;
    DBCheckBox6: TDBCheckBox;
    DBCheckBox7: TDBCheckBox;
    DBCheckBox8: TDBCheckBox;
    DBCheckBox9: TDBCheckBox;
    DBCheckBox10: TDBCheckBox;
    DBNavigator1: TDBNavigator;
    ADOQuery1: TADOQuery;
    Panel9: TPanel;
    RG1: TRadioGroup;
    GroupBox3: TGroupBox;
    SpeedButton2: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Label6: TLabel;
    Label8: TLabel;
    Label14: TLabel;
    ListBox1: TListBox;
    ListBox2: TListBox;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Splitter1: TSplitter;
    qry1: TADOQuery;
    BitBtn1: TBitBtn;
    Button1: TButton;
    SpeedButton1: TSpeedButton;
    Label16: TLabel;
    DBCheckBox11: TDBCheckBox;
    DBCheckBox12: TDBCheckBox;
    DBCheckBox13: TDBCheckBox;
    DBCheckBox14: TDBCheckBox;
    DBCheckBox15: TDBCheckBox;
    ADODataSet1workno: TStringField;
    ADODataSet1cardno: TStringField;
    ADODataSet1name: TStringField;
    ADODataSet1brushcard: TBooleanField;
    ADODataSet1rq: TDateTimeField;
    ADODataSet1scheno: TStringField;
    ADODataSet1schename: TStringField;
    ADODataSet1comcode: TStringField;
    ADODataSet1s1: TBCDField;
    ADODataSet1gotime1: TDateTimeField;
    ADODataSet1fgotime1: TDateTimeField;
    ADODataSet1outtime1: TDateTimeField;
    ADODataSet1fouttime1: TDateTimeField;
    ADODataSet1e1: TBCDField;
    ADODataSet1add1: TBooleanField;
    ADODataSet1decrease1: TBCDField;
    ADODataSet1daytime1: TBCDField;
    ADODataSet1day1: TBCDField;
    ADODataSet1unout1: TBooleanField;
    ADODataSet1kuan1: TBCDField;
    ADODataSet1night1: TBooleanField;
    ADODataSet1s2: TBCDField;
    ADODataSet1gotime2: TDateTimeField;
    ADODataSet1fgotime2: TDateTimeField;
    ADODataSet1outtime2: TDateTimeField;
    ADODataSet1fouttime2: TDateTimeField;
    ADODataSet1e2: TBCDField;
    ADODataSet1add2: TBooleanField;
    ADODataSet1decrease2: TBCDField;
    ADODataSet1daytime2: TBCDField;
    ADODataSet1day2: TBCDField;
    ADODataSet1unout2: TBooleanField;
    ADODataSet1kuan2: TBCDField;
    ADODataSet1night2: TBooleanField;
    ADODataSet1s3: TBCDField;
    ADODataSet1gotime3: TDateTimeField;
    ADODataSet1fgotime3: TDateTimeField;
    ADODataSet1outtime3: TDateTimeField;
    ADODataSet1fouttime3: TDateTimeField;
    ADODataSet1e3: TBCDField;
    ADODataSet1add3: TBooleanField;
    ADODataSet1decrease3: TBCDField;
    ADODataSet1daytime3: TBCDField;
    ADODataSet1day3: TBCDField;
    ADODataSet1unout3: TBooleanField;
    ADODataSet1kuan3: TBCDField;
    ADODataSet1night3: TBooleanField;
    ADODataSet1s4: TBCDField;
    ADODataSet1gotime4: TDateTimeField;
    ADODataSet1fgotime4: TDateTimeField;
    ADODataSet1outtime4: TDateTimeField;
    ADODataSet1fouttime4: TDateTimeField;
    ADODataSet1e4: TBCDField;
    ADODataSet1add4: TBooleanField;
    ADODataSet1decrease4: TBCDField;
    ADODataSet1daytime4: TBCDField;
    ADODataSet1day4: TBCDField;
    ADODataSet1unout4: TBooleanField;
    ADODataSet1kuan4: TBCDField;
    ADODataSet1night4: TBooleanField;
    ADODataSet1s5: TBCDField;
    ADODataSet1gotime5: TDateTimeField;
    ADODataSet1fgotime5: TDateTimeField;
    ADODataSet1outtime5: TDateTimeField;
    ADODataSet1fouttime5: TDateTimeField;
    ADODataSet1e5: TBCDField;
    ADODataSet1add5: TBooleanField;
    ADODataSet1decrease5: TBCDField;
    ADODataSet1daytime5: TBCDField;
    ADODataSet1day5: TBCDField;
    ADODataSet1unout5: TBooleanField;
    ADODataSet1kuan5: TBCDField;
    ADODataSet1night5: TBooleanField;
    ADODataSet1dayhours: TBCDField;
    ADODataSet1unatd: TBooleanField;
    ADODataSet1ot: TBooleanField;
    ADODataSet1notgive: TBooleanField;
    ADODataSet1otkind: TStringField;
    ADODataSet1mankind: TStringField;
    ADODataSet1dothing: TBooleanField;
    ADODataSet1state: TStringField;
    ADODataSet1flag: TStringField;
    ADODataSet1maxtime: TDateTimeField;
    ADODataSet1maxitem: TIntegerField;
    ADODataSet1musthours: TBCDField;
    ADODataSet1facthours: TBCDField;
    ADODataSet1factday: TBCDField;
    ADODataSet1youxinday: TBCDField;
    ADODataSet1wuxinday: TBCDField;
    ADODataSet1eveninghours: TBCDField;
    ADODataSet1late1: TIntegerField;
    ADODataSet1late2: TIntegerField;
    ADODataSet1late3: TIntegerField;
    ADODataSet1late4: TIntegerField;
    ADODataSet1late5: TIntegerField;
    ADODataSet1late: TIntegerField;
    ADODataSet1latetimes: TIntegerField;
    ADODataSet1early1: TIntegerField;
    ADODataSet1early2: TIntegerField;
    ADODataSet1early3: TIntegerField;
    ADODataSet1early4: TIntegerField;
    ADODataSet1early5: TIntegerField;
    ADODataSet1early: TIntegerField;
    ADODataSet1earlytimes: TIntegerField;
    ADODataSet1kuang1: TBCDField;
    ADODataSet1kuang2: TBCDField;
    ADODataSet1kuang3: TBCDField;
    ADODataSet1kuang4: TBCDField;
    ADODataSet1kuang5: TBCDField;
    ADODataSet1kuangL1: TBCDField;
    ADODataSet1kuangL2: TBCDField;
    ADODataSet1kuangL3: TBCDField;
    ADODataSet1kuangL4: TBCDField;
    ADODataSet1kuangL5: TBCDField;
    ADODataSet1kuange1: TBCDField;
    ADODataSet1kuange2: TBCDField;
    ADODataSet1kuange3: TBCDField;
    ADODataSet1kuange4: TBCDField;
    ADODataSet1kuange5: TBCDField;
    ADODataSet1kuanggong: TBCDField;
    ADODataSet1kuanggongtimes: TIntegerField;
    ADODataSet1kuanggongL: TBCDField;
    ADODataSet1kuanggongtimesL: TIntegerField;
    ADODataSet1kuanggonge: TBCDField;
    ADODataSet1kuanggongtimese: TIntegerField;
    ADODataSet1leavehave: TBCDField;
    ADODataSet1leavenohave: TBCDField;
    ADODataSet1mustot: TBCDField;
    ADODataSet1othour1: TBCDField;
    ADODataSet1othour2: TBCDField;
    ADODataSet1othour3: TBCDField;
    ADODataSet1othour4: TBCDField;
    ADODataSet1othour5: TBCDField;
    ADODataSet1otgive: TBCDField;
    ADODataSet1otnotgive: TBCDField;
    ADODataSet1lateOt: TIntegerField;
    ADODataSet1latetimesOt: TIntegerField;
    ADODataSet1earlyOt: TIntegerField;
    ADODataSet1earlytimesOt: TIntegerField;
    ADODataSet1kuanggongOt: TBCDField;
    ADODataSet1kuanggongtimesOt: TIntegerField;
    ADODataSet1kuanggongOtL: TBCDField;
    ADODataSet1kuanggongtimesOtL: TIntegerField;
    ADODataSet1kuanggongote: TBCDField;
    ADODataSet1kuanggongtimesote: TIntegerField;
    ADODataSet1leavehaveOt: TBCDField;
    ADODataSet1leavenohaveOt: TBCDField;
    ADODataSet1leavekind: TStringField;
    ADODataSet1leave1: TBCDField;
    ADODataSet1leave2: TBCDField;
    ADODataSet1leave3: TBCDField;
    ADODataSet1leave4: TBCDField;
    ADODataSet1leave5: TBCDField;
    ADODataSet1qiankaman: TStringField;
    ADODataSet1unatdxia: TBooleanField;
    DBEdit31: TDBEdit;
    Label26: TLabel;
    Label27: TLabel;
    Label2: TLabel;
    DBEdit32: TDBEdit;
    DBEdit33: TDBEdit;
    DBEdit34: TDBEdit;
    DBEdit35: TDBEdit;
    DBEdit36: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label7: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    DBEdit30: TDBEdit;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    DBCheckBox3: TDBCheckBox;
    DBCheckBox4: TDBCheckBox;
    Label23: TLabel;
    DBComboBox1: TDBComboBox;
    procedure FormCreate(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure ADODataSet1factgo1Change(Sender: TField);
    procedure SpeedButton3Click(Sender: TObject);
    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1Change(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure RG1Click(Sender: TObject);
    //function copychar(ch:string;twice:integer):string;   //将字串ch复制twice遍
  private
   function copychar(ch:string;twice:integer):string;   //将字串ch复制twice遍
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formqianka: TFormqianka;
  change:boolean;
  gtime,otime:Array[0..4,0..1] of String;
  itemtime:integer;
implementation

uses main,atddata,datamol;
{$R *.DFM}
function TFormqianka.copychar(ch:string;twice:integer):string;   //将字串ch复制twice遍
var
    s:string;
    i:integer;
begin
    result:='';
    s:='';
    for i:=1 to twice do
        s:=s+ch;
    result:=s;
end;
procedure TFormqianka.FormCreate(Sender: TObject);
begin
  Listbox1.items.clear;
  listbox2.items.clear;
  Qry1.close;
  Qry1.sql.text:='Select * from pub05010 order by dno ';
  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;
   with datamod do
   begin
      query1.close;
      query1.sql.text:='Exec kaoqin_getqianka '''+pubworkname+'''';
      query1.execsql;
   end;
   with adodataset1 do
   begin
      close;