jiangchen.pas

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

//****************************************************************//
//奖惩作业，首先建立奖惩类别资料,然后在建立奖惩资料，直接在dbgrid中操作
unit jiangchen;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, ComCtrls, StdCtrls, Buttons, ExtCtrls, DBCtrls, ToolWin,
  ImgList, Menus,adodb, Mask,Db,IniFiles, wwdblook;

type
  TformJiangChen = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGrid1: TDBGrid;
    TabSheet2: TTabSheet;
    DBGrid2: TDBGrid;
    TabSheet3: TTabSheet;
    ImageList1: TImageList;
    Panel1: TPanel;
    Splitter1: TSplitter;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    Label11: TLabel;
    DBEdit11: TDBEdit;
    Label12: TLabel;
    DBEdit12: TDBEdit;
    DateTimePicker1: TDateTimePicker;
    DBComboBox1: TDBComboBox;
    ToolBar1: TToolBar;
    ToolButton7: TToolButton;
    tbnsort: TToolButton;
    tbnfind: TToolButton;
    tbnprint: TToolButton;
    tbnexit: TToolButton;
    DBNavigator2: TDBNavigator;
    Panel2: TPanel;
    DBGrid3: TDBGrid;
    Panel3: TPanel;
    Label13: TLabel;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Panel4: TPanel;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    Panel5: TPanel;
    SpeedButton3: TSpeedButton;
    CheckBox1: TCheckBox;
    CheckBox7: TCheckBox;
    ToolButton2: TToolButton;
    DBComboBox2: TDBComboBox;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N3: TMenuItem;
    Panel7: TPanel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label43: TLabel;
    Edit1: TEdit;
    MaskEdit1: TMaskEdit;
    DateTimePicker2: TDateTimePicker;
    MaskEdit2: TMaskEdit;
    DateTimePicker5: TDateTimePicker;
    Panel8: TPanel;
    Label17: TLabel;
    Label19: TLabel;
    Edit2: TEdit;
    MaskEdit3: TMaskEdit;
    DateTimePicker3: TDateTimePicker;
    MaskEdit4: TMaskEdit;
    DateTimePicker4: TDateTimePicker;
    Label18: TLabel;
    Label20: TLabel;
    wwDBLookupCombo3: TwwDBLookupCombo;
    TabSheet4: TTabSheet;
    DBGrid4: TDBGrid;
    DBGrid5: TDBGrid;
    Splitter2: TSplitter;
    ToolButton1: TToolButton;
    DataSource1: TDataSource;
    Adodataset1: TADODataSet;
    Adodataset1rno: TStringField;
    Adodataset1workno: TStringField;
    Adodataset1name: TStringField;
    Adodataset1prof: TStringField;
    Adodataset1dept: TStringField;
    Adodataset1JCdate: TDateTimeField;
    Adodataset1JCname: TStringField;
    Adodataset1JCkind: TStringField;
    Adodataset1JCtimes: TIntegerField;
    Adodataset1JCmoney: TBCDField;
    Adodataset1JCreason: TStringField;
    Adodataset1Cdate: TDateTimeField;
    Adodataset1operator: TStringField;
    Adodataset1jctime1: TIntegerField;
    Adodataset1jctime2: TIntegerField;
    Adodataset1jctime3: TIntegerField;
    ADODataSet2: TADODataSet;
    DataSource2: TDataSource;
    ADODataSet2workno: TStringField;
    ADODataSet2name: TStringField;
    ADODataSet2jctime1: TIntegerField;
    ADODataSet2jctime2: TIntegerField;
    ADODataSet2jctime3: TIntegerField;
    ADODataSet2jctime4: TIntegerField;
    ADOQuery1: TADOQuery;
    TabSheet5: TTabSheet;
    DBGrid6: TDBGrid;
    Splitter3: TSplitter;
    DBGrid7: TDBGrid;
    ADODataSet2jctime5: TIntegerField;
    ADODataSet2jctime6: TIntegerField;
    ADODataSet2jctime7: TIntegerField;
    Label21: TLabel;
    DBEdit2: TDBEdit;
    procedure PageControl1Change(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnexitClick(Sender: TObject);
    procedure DBGrid2KeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
    procedure DBNavigator1BeforeAction(Sender: TObject;
      Button: TNavigateBtn);
    procedure tbnexitClick(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure tbnsortClick(Sender: TObject);
    procedure tbnfindClick(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure DBGrid3TitleClick(Column: TColumn);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure PageControl1Changing(Sender: TObject;
      var AllowChange: Boolean);
    procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure DateTimePicker1CloseUp(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure tbnprintClick(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure MaskEdit2Exit(Sender: TObject);
    procedure MaskEdit4Exit(Sender: TObject);
    procedure DateTimePicker2CloseUp(Sender: TObject);
    procedure DateTimePicker5CloseUp(Sender: TObject);
    procedure DateTimePicker3CloseUp(Sender: TObject);
    procedure DateTimePicker4CloseUp(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure DBGrid5DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure DBGrid5TitleClick(Column: TColumn);
    procedure DBGrid4TitleClick(Column: TColumn);
    procedure wwDBLookupCombo3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBNavigator2BeforeAction(Sender: TObject;
      Button: TNavigateBtn);
  private
    { Private declarations }
    manyfield:boolean;
    findex:array[1..5] of integer;
    fsort:array[1..5] of string;
    fcount:0..5;
    db:0..3;
    f:string;
    procedure showjcname(i:string);
  public
     { Public declarations }
  end;

var
  formJiangChen: TformJiangChen;
  repkind:string;
implementation

uses datamol,publicfunction, main, jiangchengrule, jiangcheng,
  personalreport, reportforraisepay, reportforreward, canfind, panishreport;
{$R *.DFM}

procedure TformJiangChen.PageControl1Change(Sender: TObject);
begin
   //(sender as Tpagecontrol).activepage.Highlighted :=true;
   pagecontrol1.activepage.highlighted:=true;
     with datamod.adojiangchen do
     begin
     filtered:=false;
       case  pagecontrol1.activepageindex of
       0: begin                  //当选择奖劢作业时，只显示奖劢的记录
            i:=true;
            panel1.Visible :=true;
            filter:='jckind=0';
            dbnavigator2.DataSource:=datamod.DSjiangchen;
            filtered:=true;
            //if DBGrid1.Columns[6].PickList.text='' then showjcname('0');
            dbcombobox1.Items.Clear;
            dbcombobox2.Items.Clear;
            with datamod.ADOQuery2 do
             begin
               close;
               sql.Clear;
               sql.Add('select jcname from per18010 where jckind=''0''');
               open;
               while not eof do
                begin
                  dbcombobox1.Items.Add(fieldbyname('jcname').asstring);
                  next;
                end;
               close;
             end;
           with datamod.ADOQuery1 do
             begin
               close;
               sql.Clear;
               sql.Add('select jcreason from per29010 where jckind=''0''');
               open;
               while not eof do
                 begin
                   dbcombobox2.Items.Add(fieldbyname('jcreason').asstring);
                   next;
                 end;
               close;
             end;
          end;
       1: begin                 //当选择处罚作业时，只显示处罚的记录
            j:=true;
            panel1.Visible :=true;
            datamod.adojiangchen.filter:='jckind=1';
            dbnavigator2.DataSource :=datamod.DSjiangchen;
            filtered:=true;
            //if dbgrid2.columns[6].picklist.text='' then showjcname('1');
            dbcombobox1.Items.Clear;
            dbcombobox2.Items.Clear;
            with datamod.ADOQuery2 do
             begin
               close;
               sql.Clear;
               sql.Add('select jcname from per18010 where jckind=''1''');
               open;
               while not eof do
                begin
                  dbcombobox1.Items.Add(fieldbyname('jcname').asstring);
                  next;
                end;
               close;
             end;
            with datamod.ADOQuery1 do
             begin
               close;
               sql.Clear;
               sql.Add('select jcreason from per29010 where jckind=''1''');
               open;
               while not eof do
                begin
                  dbcombobox2.Items.Add(fieldbyname('jcreason').asstring);
                  next;
                end;
               close;
             end;

          end;
       2:begin
          dbnavigator2.DataSource :=datamod.DSjckind;
          panel1.Visible :=false;
          if datamod.ADOjckind.FieldByName('jcway').asboolean then
             radiobutton2.Checked:=true
          else
             radiobutton1.Checked:=true;
         end;
       3:begin
           panel1.visible:=false;
           adodataset1.Close;
           adodataset2.close;
           adodataset1.CommandText:='select * from per17010   where workno=:workno and jckind=1';
           adodataset1.Open;
           adodataset2.CommandText:=' select * from jccount  ';
           adodataset2.Open;
           j:=false;
         end;
       4:begin
           panel1.visible:=false;
           adodataset1.Close;
           adodataset2.close;
           adodataset1.CommandText:='select * from per17010   where workno=:workno and jckind=0';
           adodataset1.Open;
           adodataset2.CommandText:=' select * from jccount  ';
           adodataset2.Open;
           i:=false;
         end;