room.pas

pasa人力资源考勤管理系统

unit room;

interface

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

type
  Tformroom = class(TForm)
    ImageList1: TImageList;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TreeView1: TTreeView;
    Splitter3: TSplitter;
    Panel1: TPanel;
    ListView1: TListView;
    Panel2: TPanel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Edit20: TEdit;
    Edit21: TEdit;
    Edit22: TEdit;
    Edit23: TEdit;
    Edit24: TEdit;
    Edit25: TEdit;
    Edit26: TEdit;
    Edit27: TEdit;
    Edit28: TEdit;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    Label49: TLabel;
    Label50: TLabel;
    Label51: TLabel;
    Label52: TLabel;
    Label53: TLabel;
    Label54: TLabel;
    Label55: TLabel;
    Label56: TLabel;
    Label57: TLabel;
    Label58: TLabel;
    Edit29: TEdit;
    Edit30: TEdit;
    Edit31: TEdit;
    Edit32: TEdit;
    Edit33: TEdit;
    Edit34: TEdit;
    Edit35: TEdit;
    Edit36: TEdit;
    Edit37: TEdit;
    Edit38: TEdit;
    Edit39: TEdit;
    Edit40: TEdit;
    Edit41: TEdit;
    Edit42: TEdit;
    Edit43: TEdit;
    Edit44: TEdit;
    Edit45: TEdit;
    Edit46: TEdit;
    Edit47: TEdit;
    Edit48: TEdit;
    Edit49: TEdit;
    Edit50: TEdit;
    Edit51: TEdit;
    Edit52: TEdit;
    Edit53: TEdit;
    Edit54: TEdit;
    Edit55: TEdit;
    Edit56: TEdit;
    SpeedButton1: TSpeedButton;
    PopupMenu1: TPopupMenu;
    n11: TMenuItem;
    PopupMenu2: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N3: TMenuItem;
    Label2: TLabel;
    Splitter1: TSplitter;
    Panel3: TPanel;
    o: TDBGrid;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Splitter2: TSplitter;
    Panel7: TPanel;
    Panel8: TPanel;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Splitter4: TSplitter;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    ADODataSet2: TADODataSet;
    ADODataSet2roomno: TStringField;
    ADODataSet2bedno: TStringField;
    ADODataSet2workno: TStringField;
    ADODataSet2roomer: TBooleanField;
    ADODataSet2name: TStringField;
    ppBDEPipeline2: TppBDEPipeline;
    ADODataSet1: TADODataSet;
    ADODataSet1roomno: TStringField;
    ADODataSet1roomkind: TStringField;
    ADODataSet1money: TIntegerField;
    ADODataSet1roomcan: TIntegerField;
    ADODataSet1num1: TIntegerField;
    ppBDEPipeline1: TppBDEPipeline;
    ADODataSet3: TADODataSet;
    ppReport1: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppLabel1: TppLabel;
    ppLabel2: TppLabel;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppLabel11: TppLabel;
    ppLabel12: TppLabel;
    ppLabel6: TppLabel;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppLabel9: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppLabel13: TppLabel;
    ppSystemVariable2: TppSystemVariable;
    ppDetailBand1: TppDetailBand;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppDBText5: TppDBText;
    ppSubReport1: TppSubReport;
    ppChildReport1: TppChildReport;
    ppHeaderBand2: TppHeaderBand;
    ppDetailBand2: TppDetailBand;
    ppDBText8: TppDBText;
    ppDBText9: TppDBText;
    ppDBText10: TppDBText;
    ppLabel10: TppLabel;
    ppDBText6: TppDBText;
    ppSummaryBand1: TppSummaryBand;
    raCodeModule1: TraCodeModule;
    ppFooterBand1: TppFooterBand;
    ppSummaryBand2: TppSummaryBand;
    ppLabel14: TppLabel;
    ppLabel15: TppLabel;
    ppLabel16: TppLabel;
    ppLabel17: TppLabel;
    ppTitleBand1: TppTitleBand;
    ppLabel18: TppLabel;
    ppLabel19: TppLabel;
    ppLabel20: TppLabel;
    ppLabel21: TppLabel;
    ppLine1: TppLine;
    ppShape1: TppShape;
    ppShape2: TppShape;
    DBGrid2: TDBGrid;
    N5: TMenuItem;
    DBGrid3: TDBGrid;
    ADOQuery1: TADOQuery;
    ppReport2: TppReport;
    ppHeaderBand3: TppHeaderBand;
    ppDetailBand3: TppDetailBand;
    ppFooterBand2: TppFooterBand;
    ppLabel22: TppLabel;
    ppLine2: TppLine;
    ppColumnHeaderBand1: TppColumnHeaderBand;
    ppColumnFooterBand1: TppColumnFooterBand;
    ppLabel23: TppLabel;
    ppLine3: TppLine;
    ppLine4: TppLine;
    ppLabel24: TppLabel;
    ppLine6: TppLine;
    ppLabel25: TppLabel;
    ppLine7: TppLine;
    ppLine8: TppLine;
    ppLine9: TppLine;
    ppLine10: TppLine;
    ppLine11: TppLine;
    ppLine12: TppLine;
    ppLine13: TppLine;
    ppDBText7: TppDBText;
    ppDBText11: TppDBText;
    ADODataSet4: TADODataSet;
    ADODataSet4roomno: TStringField;
    ADODataSet4workno: TStringField;
    ADODataSet4name: TStringField;
    ADODataSet4dept: TStringField;
    ppLine5: TppLine;
    ppLabel26: TppLabel;
    ppLine14: TppLine;
    ppDBText12: TppDBText;
    ppBDEPipeline3: TppBDEPipeline;
    DataSource3: TDataSource;
    ppDBText13: TppDBText;
    ppSystemVariable3: TppSystemVariable;
    ppLabel27: TppLabel;
    ppLabel28: TppLabel;
    ppReport3: TppReport;
    ppHeaderBand4: TppHeaderBand;
    ppLabel29: TppLabel;
    ppSystemVariable4: TppSystemVariable;
    ppLabel30: TppLabel;
    ppLabel31: TppLabel;
    ppColumnHeaderBand2: TppColumnHeaderBand;
    ppLabel32: TppLabel;
    ppLine16: TppLine;
    ppLine17: TppLine;
    ppLabel33: TppLabel;
    ppLine18: TppLine;
    ppLabel34: TppLabel;
    ppLine19: TppLine;
    ppLine20: TppLine;
    ppLine21: TppLine;
    ppDetailBand4: TppDetailBand;
    ppLine22: TppLine;
    ppLine23: TppLine;
    ppLine24: TppLine;
    ppLine25: TppLine;
    ppLine26: TppLine;
    ppDBText14: TppDBText;
    ppDBText15: TppDBText;
    ppDBText17: TppDBText;
    ppColumnFooterBand2: TppColumnFooterBand;
    ppFooterBand3: TppFooterBand;
    ADODataSet5: TADODataSet;
    StringField2: TStringField;
    StringField3: TStringField;
    StringField4: TStringField;
    DataSource4: TDataSource;
    ppBDEPipeline4: TppBDEPipeline;
    ToolBar1: TToolBar;
    ToolButton6: TToolButton;
    tbnsort: TToolButton;
    tbnfind: TToolButton;
    tbnprint: TToolButton;
    ToolButton4: TToolButton;
    ToolButton1: TToolButton;
    DBNavigator1: TDBNavigator;
    ToolButton3: TToolButton;
    ToolButton7: TToolButton;
    ToolButton11: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    procedure PageControl1Change(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure oKeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure Label1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure TreeView1DblClick(Sender: TObject);
    procedure Edit2DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Edit1DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure Edit29DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure ComboBox1Exit(Sender: TObject);
    procedure ComboBox2Exit(Sender: TObject);
    procedure n11Click(Sender: TObject);
    procedure Edit1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Edit1DblClick(Sender: TObject);
    procedure DBGrid3TitleClick(Column: TColumn);
    procedure oTitleClick(Column: TColumn);
    procedure DBGrid2TitleClick(Column: TColumn);
    procedure tbnsortClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure oEnter(Sender: TObject);
    procedure DBGrid2Enter(Sender: TObject);
    procedure PageControl1Changing(Sender: TObject;
      var AllowChange: Boolean);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure DBGrid1Enter(Sender: TObject);
    procedure tbnfindClick(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure TreeView1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid2KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid3KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ppReport1BeforePrint(Sender: TObject);
    procedure ppReport1PreviewFormCreate(Sender: TObject);
    procedure tbnprintClick(Sender: TObject);
    procedure ppDBText10GetText(Sender: TObject; var Text: String);
    procedure FormCreate(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure TabSheet1Show(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure Edit57KeyPress(Sender: TObject; var Key: Char);
    procedure ppReport2BeforePrint(Sender: TObject);
    procedure ppReport2PreviewFormCreate(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ppReport3BeforePrint(Sender: TObject);
    procedure ppReport3PreviewFormCreate(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
    procedure ToolButton14Click(Sender: TObject);
  private
    yedit:integer;     //黄色控件有多少个
    manyfield:boolean;
    findex:array[1..5] of integer;
    fsort:array[1..5] of string;
    fcount,fcount1,fcount2,fcount3:0..5;
    dbgrid:integer;
    f:string;
    procedure showtree(sender:tobject);  //显示作业的树状结构
    procedure list(comb:tcombobox;list:tlistbox);
    procedure newbed(sender:Tobject);
    procedure combxkeydown(sender:Tobject);
   //procedure showbed(sender:tobject);
    function  addnotdup(List: TCustomListBox; Text: string): Boolean;
    function  roomnoAt(sender:Tobject):boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var  formroom: Tformroom;
  bname,btext,ygno:string;    //在右击edit时,弹出菜单，把调用菜单的控件传给eidt的双击事件

implementation

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

procedure Tformroom.PageControl1Change(Sender: TObject);
begin
  (sender as Tpagecontrol).activepage.highlighted:=true;
  case pagecontrol1.ActivePageIndex of
  0:begin
      dbnavigator1.Visible:=false;
      tbnsort.Enabled :=false;
      tbnfind.Enabled :=false;
      showtree(sender);
    end;
  1:begin
     dbnavigator1.Visible:=false;
     tbnsort.Enabled :=true;
     tbnfind.Enabled :=true;
     dbgrid1.SetFocus;
    end;
  2:begin
     dbnavigator1.Visible:=true;
     dbnavigator1.Left :=190;
     tbnsort.Enabled :=false;
     tbnfind.Enabled :=true;
    end;
  end;
  with datamod do
  begin
    Adoroom1.close;
    Adoroom1.Open ;
    Adoroomnow.close;
    Adoroomnow.Open;
    Adoroom2.close;
    Adoroom2.open;