changebc.pas

pasa人力资源考勤管理系统

unit changebc;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ImgList, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, DBCtrls, ComCtrls,
  ToolWin, Menus, Mask, Db, ADODB, ppCtrls, ppBands, ppReport, ppStrtch,
  ppSubRpt, ppPrnabl, ppClass, ppDB, ppCache, ppProd, ppComm, ppRelatv,
  ppDBPipe, ppDBBDE, ppVar;

type
  TFormchangebc = class(TForm)
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    tbnprint: TToolButton;
    ToolButton2: TToolButton;
    Find: TToolButton;
    TbnSort: TToolButton;
    ToolButton1: TToolButton;
    DBNavigator1: TDBNavigator;
    Splitter1: TSplitter;
    DBGrid2: TDBGrid;
    Splitter2: TSplitter;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N3: TMenuItem;
    PopupMenu2: TPopupMenu;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    ppBDEPipeline1: TppBDEPipeline;
    ppReport1: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppDBText5: TppDBText;
    ppBDEPipeline2: TppBDEPipeline;
    ppSubReport1: TppSubReport;
    ppChildReport1: TppChildReport;
    ppDetailBand2: TppDetailBand;
    ppSummaryBand1: TppSummaryBand;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppDBText8: TppDBText;
    ppDBText9: TppDBText;
    ppDBText10: TppDBText;
    ppHeaderBand2: TppHeaderBand;
    ppLabel1: TppLabel;
    ppDBCalc1: TppDBCalc;
    DataSource1: TDataSource;
    ADODataSet1: TADODataSet;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppLabel9: TppLabel;
    ppLabel10: TppLabel;
    ppLabel11: TppLabel;
    ADODataSet2: TADODataSet;
    ppShape1: TppShape;
    ppShape2: TppShape;
    ppLabel12: TppLabel;
    ppLabel13: TppLabel;
    ppLabel14: TppLabel;
    ppLabel15: TppLabel;
    ppLabel16: TppLabel;
    ppLabel17: TppLabel;
    ppLabel18: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppLabel19: TppLabel;
    ppSystemVariable2: TppSystemVariable;
    ppShape3: TppShape;
    ppShape4: TppShape;
    DBGrid1: TDBGrid;
    ADODataSet3: TADODataSet;
    Panel2: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    Label8: TLabel;
    Label9: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    ToolButton3: TToolButton;
    Panel5: TPanel;
    Label12: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Animate1: TAnimate;
    DateTimePicker3: TDateTimePicker;
    BitBtn1: TBitBtn;
    DateTimePicker4: TDateTimePicker;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    ADOQuery1: TADOQuery;
    Panel1: TPanel;
    Label4: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label13: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label33: TLabel;
    Label35: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    DBEdit3: TDBEdit;
    DBEdit8: TDBEdit;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBCheckBox4: TDBCheckBox;
    DBCheckBox5: TDBCheckBox;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBCheckBox7: TDBCheckBox;
    DBCheckBox8: TDBCheckBox;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    DBCheckBox10: TDBCheckBox;
    DBCheckBox11: TDBCheckBox;
    DBEdit22: TDBEdit;
    DBEdit24: TDBEdit;
    DBEdit25: TDBEdit;
    DBCheckBox13: TDBCheckBox;
    DBCheckBox14: TDBCheckBox;
    DBCheckBox16: TDBCheckBox;
    DBCheckBox17: TDBCheckBox;
    DBCheckBox18: TDBCheckBox;
    DBCheckBox19: TDBCheckBox;
    DBCheckBox20: TDBCheckBox;
    DBEdit5: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit26: TDBEdit;
    DBEdit27: TDBEdit;
    DBEdit28: TDBEdit;
    DBEdit29: TDBEdit;
    DBEdit30: TDBEdit;
    DBEdit31: TDBEdit;
    DBEdit32: TDBEdit;
    DBEdit33: TDBEdit;
    DBEdit34: TDBEdit;
    DBEdit35: TDBEdit;
    DBEdit36: TDBEdit;
    DBEdit37: TDBEdit;
    DBEdit38: TDBEdit;
    DBEdit39: TDBEdit;
    DBEdit40: TDBEdit;
    DBEdit41: TDBEdit;
    DBCheckBox3: TDBCheckBox;
    DBCheckBox6: TDBCheckBox;
    DBCheckBox9: TDBCheckBox;
    DBCheckBox12: TDBCheckBox;
    DBComboBox1: TDBComboBox;
    ADODataSet3id: TAutoIncField;
    ADODataSet3startrq: TDateTimeField;
    ADODataSet3endrq: TDateTimeField;
    ADODataSet3latesche: TStringField;
    ADODataSet3s1: TBCDField;
    ADODataSet3gotime1: TStringField;
    ADODataSet3outtime1: TStringField;
    ADODataSet3e1: TBCDField;
    ADODataSet3add1: TBooleanField;
    ADODataSet3decrease1: TBCDField;
    ADODataSet3daytime1: TBCDField;
    ADODataSet3unout1: TBooleanField;
    ADODataSet3kuan1: TBCDField;
    ADODataSet3night1: TBooleanField;
    ADODataSet3s2: TBCDField;
    ADODataSet3gotime2: TStringField;
    ADODataSet3outtime2: TStringField;
    ADODataSet3e2: TBCDField;
    ADODataSet3add2: TBooleanField;
    ADODataSet3decrease2: TBCDField;
    ADODataSet3daytime2: TBCDField;
    ADODataSet3unout2: TBooleanField;
    ADODataSet3kuan2: TBCDField;
    ADODataSet3night2: TBooleanField;
    ADODataSet3s3: TBCDField;
    ADODataSet3gotime3: TStringField;
    ADODataSet3outtime3: TStringField;
    ADODataSet3e3: TBCDField;
    ADODataSet3add3: TBooleanField;
    ADODataSet3decrease3: TBCDField;
    ADODataSet3daytime3: TBCDField;
    ADODataSet3unout3: TBooleanField;
    ADODataSet3kuan3: TBCDField;
    ADODataSet3night3: TBooleanField;
    ADODataSet3s4: TBCDField;
    ADODataSet3gotime4: TStringField;
    ADODataSet3outtime4: TStringField;
    ADODataSet3e4: TBCDField;
    ADODataSet3add4: TBooleanField;
    ADODataSet3decrease4: TBCDField;
    ADODataSet3daytime4: TBCDField;
    ADODataSet3unout4: TBooleanField;
    ADODataSet3kuan4: TBCDField;
    ADODataSet3night4: TBooleanField;
    ADODataSet3s5: TBCDField;
    ADODataSet3gotime5: TStringField;
    ADODataSet3outtime5: TStringField;
    ADODataSet3e5: TBCDField;
    ADODataSet3add5: TBooleanField;
    ADODataSet3decrease5: TBCDField;
    ADODataSet3daytime5: TBCDField;
    ADODataSet3unout5: TBooleanField;
    ADODataSet3kuan5: TBCDField;
    ADODataSet3night5: TBooleanField;
    ADODataSet3dayhours: TBCDField;
    ADODataSet3unatd: TBooleanField;
    ADODataSet3ot: TBooleanField;
    ADODataSet3notgive: TBooleanField;
    ADODataSet3otkind: TStringField;
    ADODataSet3dothing: TBooleanField;
    ADODataSet3wuxing: TBooleanField;
    ADODataSet3youxing: TBooleanField;
    ADODataSet3state: TStringField;
    ADODataSet3memo: TStringField;
    ADODataSet3operator: TStringField;
    ADODataSet3cdate: TDateTimeField;
    ADODataSet3workno: TBooleanField;
    ADODataSet3name: TStringField;
    ADODataSet3prof: TStringField;
    ADODataSet3dept: TStringField;
    ADODataSet1id: TIntegerField;
    ADODataSet1workno: TStringField;
    ADODataSet1name: TStringField;
    ADODataSet1prof: TStringField;
    ADODataSet1dept: TStringField;
    DBCheckBox15: TDBCheckBox;
    DBCheckBox21: TDBCheckBox;
    DBCheckBox22: TDBCheckBox;
    procedure ToolButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBNavigator1BeforeAction(Sender: TObject;
      Button: TNavigateBtn);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure FindClick(Sender: TObject);
    procedure DBGrid2TitleClick(Column: TColumn);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure TbnSortClick(Sender: TObject);
    procedure FormkeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure tbnprintClick(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure MaskEdit2Exit(Sender: TObject);
    procedure DateTimePicker1CloseUp(Sender: TObject);
    procedure DateTimePicker2CloseUp(Sender: TObject);
    procedure DBGrid2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure ToolButton3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure DBCheckBox15Click(Sender: TObject);
    procedure DBCheckBox21Click(Sender: TObject);
  private
    { Private declarations }
    manyfield:boolean;
    findex:array[1..5] of integer;
    fsort:array[1..5] of string;
    fcount:0..5;
    f:string;
  public
    { Public declarations }
  end;

var
  Formchangebc: TFormchangebc;

implementation

uses main,datamol,publicfunction,
  changeschedefine, changebcreport;
{$R *.DFM}

procedure TFormchangebc.ToolButton1Click(Sender: TObject);
begin
  close;
end;

procedure TFormchangebc.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  datamod.ADOchangebc.Close;
  datamod.ADOchangebcman.Close;
  action:=cafree;
  formchangebc:=nil;
end;

procedure TFormchangebc.DBNavigator1BeforeAction(Sender: TObject;
  Button: TNavigateBtn);
var i:integer;
    dbcx:Tdbcheckbox;
begin
  case button of       //当修改或新建换班单时，调出换班具体作业
    nbinsert,
    nbedit:begin
             formchangeschedefine:=Tformchangeschedefine.Create(self);
             formchangeschedefine.panel1.Visible :=true;
             formchangeschedefine.Panel2.visible:=false;
             formchangeschedefine.panel1.align :=alclient;
             if button=nbinsert then
              begin
               datamod.ADOchangebc.Insert;
               formchangeschedefine.Tbstate :='new'
              end
             else
              begin
               datamod.ADOchangebc.Edit;
               formchangeschedefine.Tbstate :='old';
              end;
             if button=nbinsert then
               for i:=1 to 10 do
                begin
                  with formchangeschedefine do
                  begin
                   dbcx:=Tdbcheckbox(findcomponent('DBCheckBox'+inttostr(i)));
                  end;
                  with dbcx do
                  begin
                    dbcx.checked:=false;
                  end;
                end
              else if button=nbedit then
                  with datamod do
                  begin
                     adochangebcman.First;
                     while not ADOchangebcman.Eof do
                     begin
                         formchangeschedefine.ListBox2.Items.Add (ADOchangebcman.fieldbyname('workno').asstring+'   '+
                           ADOchangebcman.fieldbyname('name').asstring);
                         ADOchangebcman.Next;
                     end;
                  end;
                try
                  formchangeschedefine.ShowModal;
                finally