masterbrow.pas

pasa人力资源考勤管理系统

unit masterbrow;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, Db, ADODB, ImgList, Grids, DBGrids, DBCtrls, Mask,
  ExtCtrls, Buttons, Series, TeEngine, TeeProcs, Chart, DBChart;

type
  TFormmasterbrow = class(TForm)
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ImageList1: TImageList;
    Notebook1: TNotebook;
    Panel1: TPanel;
    DataSource2: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Label11: TLabel;
    DBComboBox1: TDBComboBox;
    Label31: TLabel;
    DBEdit26: TDBEdit;
    Label14: TLabel;
    DBText7: TDBText;
    Label17: TLabel;
    Label13: TLabel;
    DBEdit4: TDBEdit;
    Label28: TLabel;
    Label23: TLabel;
    Label46: TLabel;
    Label15: TLabel;
    DBEdit5: TDBEdit;
    Label16: TLabel;
    DBEdit6: TDBEdit;
    Label18: TLabel;
    DBEdit7: TDBEdit;
    Label24: TLabel;
    DBText5: TDBText;
    Label36: TLabel;
    Label19: TLabel;
    DBEdit8: TDBEdit;
    Label20: TLabel;
    DBEdit9: TDBEdit;
    Dbche1: TDBCheckBox;
    DBCheckBox5: TDBCheckBox;
    Groupkc: TGroupBox;
    Label43: TLabel;
    Label49: TLabel;
    Label50: TLabel;
    Label51: TLabel;
    Label52: TLabel;
    Label53: TLabel;
    Label55: TLabel;
    Label56: TLabel;
    DBEdit24: TDBEdit;
    DBEdit25: TDBEdit;
    DBEdit27: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit28: TDBEdit;
    DBEdit3: TDBEdit;
    Label37: TLabel;
    GroupGz: TGroupBox;
    Label29: TLabel;
    Label30: TLabel;
    Label32: TLabel;
    Label35: TLabel;
    Label40: TLabel;
    Label45: TLabel;
    Label41: TLabel;
    Label44: TLabel;
    Label42: TLabel;
    DBCheckBox2: TDBCheckBox;
    DBEdit19: TDBEdit;
    DBEdit15: TDBEdit;
    DBEditdj: TDBEdit;
    DBEdit16: TDBEdit;
    DBComboBox6: TDBComboBox;
    DBEdit13: TDBEdit;
    DBEdit30: TDBEdit;
    DBEdit31: TDBEdit;
    DBMemo1: TDBMemo;
    DBCheckBox9: TDBCheckBox;
    Label2: TLabel;
    DBEdit11: TDBEdit;
    DBCheckBox1: TDBCheckBox;
    DBEdit12: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit20: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit21: TDBEdit;
    DBEdit22: TDBEdit;
    Label6: TLabel;
    DBEdit29: TDBEdit;
    DBEdit32: TDBEdit;
    ADODataSet1: TADODataSet;
    DBCheckBox3: TDBCheckBox;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    DataSource3: TDataSource;
    ADODataSet2: TADODataSet;
    ADODataSet2workno: TStringField;
    ADODataSet2jcdate: TDateTimeField;
    ADODataSet2jcname: TStringField;
    ADODataSet2jcmoney: TBCDField;
    ADODataSet2jcreason: TStringField;
    DataSource4: TDataSource;
    ADODataSet3: TADODataSet;
    ADODataSet3workno: TStringField;
    ADODataSet3cpusedate: TStringField;
    ADODataSet3cbasepay: TBCDField;
    ADODataSet3cprofpay: TBCDField;
    ADODataSet3ctechpay: TBCDField;
    ADODataSet3cdeptpay: TBCDField;
    ADODataSet3cqqpay: TBCDField;
    DataSource5: TDataSource;
    ADODataSet4: TADODataSet;
    ADODataSet4workno: TStringField;
    ADODataSet4usefuldate: TDateTimeField;
    ADODataSet4prof: TStringField;
    ADODataSet4lprof: TStringField;
    ADODataSet4dept: TStringField;
    ADODataSet4ldept: TStringField;
    Panel3: TPanel;
    DBChart1: TDBChart;
    Series1: TPieSeries;
    DBChart2: TDBChart;
    Series2: TBarSeries;
    DBChart3: TDBChart;
    Series3: TPieSeries;
    DBChart4: TDBChart;
    Series4: TBarSeries;
    DBChart5: TDBChart;
    DBChart6: TDBChart;
    Series5: TBarSeries;
    Series6: TBarSeries;
    ADOdirect: TADOQuery;
    ADOprovname: TADOQuery;
    ADOsexname: TADOQuery;
    ADOyears: TADOQuery;
    ADOage: TADOQuery;
    ADOleavereason: TADOQuery;
    Panel4: TPanel;
    Label7: TLabel;
    Label8: TLabel;
    Label12: TLabel;
    Label22: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label33: TLabel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    TreeView1: TTreeView;
    Panel9: TPanel;
    BitBtn1: TBitBtn;
    DBEdit17: TDBEdit;
    Label34: TLabel;
    DBEdit33: TDBEdit;
    DBEdit34: TDBEdit;
    DBEdit35: TDBEdit;
    Label21: TLabel;
    DBEdit36: TDBEdit;
    Label38: TLabel;
    DBEdit37: TDBEdit;
    Label47: TLabel;
    Label48: TLabel;
    DBEdit38: TDBEdit;
    DBEdit39: TDBEdit;
    Label54: TLabel;
    DBEdit40: TDBEdit;
    DBEdit41: TDBEdit;
    Label57: TLabel;
    Label58: TLabel;
    Panel10: TPanel;
    Label1: TLabel;
    Bevel1: TBevel;
    Label9: TLabel;
    Label39: TLabel;
    Label10: TLabel;
    DBEdit2: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit1: TDBEdit;
    DBEdit42: TDBEdit;
    DBEdit43: TDBEdit;
    DBEdit44: TDBEdit;
    DBEdit45: TDBEdit;
    DBEdit46: TDBEdit;
    DBEdit47: TDBEdit;
    DBEdit48: TDBEdit;
    DBEdit49: TDBEdit;
    DBEdit50: TDBEdit;
    procedure FormCreate(Sender: TObject);
    function GetFieldList: TStringList;
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure TreeView1DblClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    procedure CaclChart;
   // procedure ZoomMyChart(XChart: TdbChart; var SmH,SmW,SmT,SmL:Smallint);
    { Public declarations }
  end;

var
  Formmasterbrow: TFormmasterbrow;
  FieldList: TStringList;
  varmystring:string;
  H1,W1,T1,L1,H2,W2,T2,L2,H3,W3,T3,L3,H4,W4,T4,L4,H5,W5,T5,L5,H6,W6,T6,L6,H7,W7,T7,L7,H8,W8,T8,L8,ShowCindex:Smallint;
implementation

uses treefunc,datamol;
{$R *.DFM}

procedure TFormmasterbrow.FormCreate(Sender: TObject);
begin
     adoquery1.Open;
     FieldList := TStringList.create;
     TreeView1.items.BeginUpdate;
     adoquery1.first;
     while not adoquery1.eof do
     begin
          TreeAddItem(TreeView1, GetFieldList, adoquery1.getBookmark, false);
          adoquery1.next;
     end;
     FieldList.clear;
     TreeView1.Alphasort;
     TreeView1.items.Endupdate;
end;

function TFormmasterbrow.GetFieldList: TStringList;
begin
     FieldList.clear;
     FieldList.add(adoquery1.fieldbyname('abm').asstring);
     FieldList.add(adoquery1.fieldbyname('dept').asstring);
     FieldList.add(adoquery1.fieldbyname('name').asstring);
     Result := FieldList;
end;

procedure TFormmasterbrow.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
   datasource1.enabled := Node.data <> nil;
   if datasource1.enabled then adoquery1.gotobookmark(node.data);
end;

procedure TFormmasterbrow.FormShow(Sender: TObject);
begin
  Notebook1.PageIndex :=0 ;
  adoquery1.Open;
  adodirect.Open;
  adoprovname.open;
  adosexname.Open;
  adoyears.open;
  adoage.open;
  adoleavereason.open;
end;
procedure tFormmasterbrow.CaclChart;
var
  qry:tadoquery;
begin
if treeview1.Items.count>0 then
begin
   if VarMyString = 'Enterprise' then
    begin
      Notebook1.PageIndex :=0;
      adodataset1.close;
      adodataset2.close;
      adodataset3.close;
      adodataset4.close;
      adodirect.close;
      adoprovname.close;
      adosexname.close;
      adoyears.close;
      adoage.close;
      adoleavereason.close;
      adodirect.sql.text:='';
      adodirect.SQL.Text :='select count(a.cardno) as num,b.profkind from per24010 a ,per01010 b where a.prof=b.profname and a.leave=0 and b.profkind '+
                           'like ''直接''+''%'' group by b.profkind '+
                           'union '+
                           'select count(a.cardno) as num,b.profkind from per24010 a ,per01010 b where a.prof=b.profname and a.leave=0 and b.profkind '+
                           'like ''间接''+''%'' group by b.profkind ';
    end else
      adodataset1.close;
      adodataset2.close;
      adodataset3.close;
      adodataset4.close;