medrecord.pas

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

unit medrecord;

interface

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

type
  TFormmedrecord = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DSmed: TDataSource;
    DBGrid5: TDBGrid;
    DBGrid6: TDBGrid;
    ImageList2: TImageList;
    ToolBar1: TToolBar;
    ToolButton5: TToolButton;
    tbnsort: TToolButton;
    tbnfind: TToolButton;
    ToolButton7: TToolButton;
    ToolButton4: TToolButton;
    DBNavigator1: TDBNavigator;
    Panel2: TPanel;
    Splitter1: TSplitter;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    DBGrid3: TDBGrid;
    DBGrid4: TDBGrid;
    Label5: TLabel;
    DBEdit1: TDBEdit;
    Label7: TLabel;
    DBEdit2: TDBEdit;
    Label10: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    Label11: TLabel;
    Label13: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    Label14: TLabel;
    Label15: TLabel;
    DBEdit5: TDBEdit;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    DBEdit8: TDBEdit;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    DBEdit11: TDBEdit;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    DBEdit14: TDBEdit;
    Label25: TLabel;
    DBEdit15: TDBEdit;
    Label26: TLabel;
    DBEdit16: TDBEdit;
    DateTimePicker1: TDateTimePicker;
    DBText4: TDBText;
    DBText5: TDBText;
    DBText6: TDBText;
    Panel3: TPanel;
    Label27: TLabel;
    DBEdit7: TDBEdit;
    Label28: TLabel;
    DBEdit10: TDBEdit;
    Label29: TLabel;
    DBEdit13: TDBEdit;
    Label30: TLabel;
    DBEdit17: TDBEdit;
    Label31: TLabel;
    DBEdit18: TDBEdit;
    Label32: TLabel;
    DBEdit19: TDBEdit;
    Label33: TLabel;
    DBEdit20: TDBEdit;
    Label34: TLabel;
    DBEdit21: TDBEdit;
    Splitter2: TSplitter;
    Panel4: TPanel;
    Splitter3: TSplitter;
    Label35: TLabel;
    DBEdit22: TDBEdit;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    DBEdit29: TDBEdit;
    Label43: TLabel;
    DBEdit30: TDBEdit;
    DBText7: TDBText;
    DBText8: TDBText;
    DBText9: TDBText;
    DBText10: TDBText;
    DBText11: TDBText;
    DBText12: TDBText;
    DBComboBox1: TDBComboBox;
    Dsmedrecord: TDataSource;
    Dsmedtotal: TDataSource;
    Dsdoctor: TDataSource;
    DBComboBox2: TDBComboBox;
    DBComboBox3: TDBComboBox;
    DBComboBox4: TDBComboBox;
    Adomedrecord: TADODataSet;
    Adomedrecordseeno: TStringField;
    Adomedrecordrq: TStringField;
    Adomedrecordworkno: TStringField;
    Adomedrecordcardno: TStringField;
    Adomedrecordname: TStringField;
    Adomedrecorddept: TStringField;
    Adomedrecorddoctorname: TStringField;
    Adomedrecordillname: TStringField;
    Adomedrecordmedno1: TStringField;
    Adomedrecordmedname1: TStringField;
    Adomedrecordmedpics1: TIntegerField;
    Adomedrecordmedno2: TStringField;
    Adomedrecordmedname2: TStringField;
    Adomedrecordmedpics2: TIntegerField;
    Adomedrecordmedno3: TStringField;
    Adomedrecordmedname3: TStringField;
    Adomedrecordmedpics3: TIntegerField;
    Adomedrecordmoney: TBCDField;
    Adomedrecordmemo: TStringField;
    Adomedtotal: TADODataSet;
    Adomedtotalrq: TStringField;
    Adomedtotalworkno: TStringField;
    Adomedtotalcardno: TStringField;
    Adomedtotalname: TStringField;
    Adomedtotaldept: TStringField;
    Adomedtotaltotalmoney: TBCDField;
    Adomedtotalmemo: TStringField;
    Adomed: TADODataSet;
    Adomedmedno: TStringField;
    Adomedmedname: TStringField;
    Adomedunit: TStringField;
    Adomedprice: TBCDField;
    Adomedsalprice: TBCDField;
    Adomedpics: TIntegerField;
    Adomedaddress: TStringField;
    Adomedmemo: TStringField;
    Adodoctor: TADODataSet;
    Adodoctorworkno: TStringField;
    Adodoctorcardno: TStringField;
    Adodoctordoctorname: TStringField;
    Adodoctorsex: TStringField;
    Adodoctorage: TIntegerField;
    Adodoctordegress: TStringField;
    Adodoctorspec: TStringField;
    Adodoctorexperience: TBCDField;
    Adodoctormemo: TStringField;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N3: TMenuItem;
    ppReport1: TppReport;
    ppBDEPipeline1: TppBDEPipeline;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppTitleBand1: TppTitleBand;
    ppLabel1: TppLabel;
    ppDBText1: TppDBText;
    ppLabel2: TppLabel;
    ppDBText2: TppDBText;
    ppLabel3: TppLabel;
    ppDBText3: TppDBText;
    ppLabel4: TppLabel;
    ppDBText5: TppDBText;
    ppLabel6: TppLabel;
    ppDBText6: TppDBText;
    ppLabel7: TppLabel;
    ppDBText7: TppDBText;
    ppLabel8: TppLabel;
    ppDBText8: TppDBText;
    ppLabel9: TppLabel;
    ppDBText10: TppDBText;
    ppLabel11: TppLabel;
    ppDBText11: TppDBText;
    ppLabel12: TppLabel;
    ppDBText13: TppDBText;
    ppLabel14: TppLabel;
    ppDBText14: TppDBText;
    ppDBText16: TppDBText;
    ppLabel17: TppLabel;
    ppDBText17: TppDBText;
    ppLabel18: TppLabel;
    ppDBText18: TppDBText;
    ppLabel19: TppLabel;
    ppDBText19: TppDBText;
    ppLabel20: TppLabel;
    ppLine1: TppLine;
    ppLabel27: TppLabel;
    ppLabel28: TppLabel;
    ppSystemVariable7: TppSystemVariable;
    ppLabel29: TppLabel;
    ppLabel30: TppLabel;
    ppSystemVariable8: TppSystemVariable;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    MaskEdit1: TMaskEdit;
    DateTimePicker2: TDateTimePicker;
    MaskEdit2: TMaskEdit;
    DateTimePicker3: TDateTimePicker;
    Edit1: TEdit;
    Panel5: TPanel;
    Label12: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    Label48: TLabel;
    MaskEdit3: TMaskEdit;
    Edit2: TEdit;
    ppLabel31: TppLabel;
    ppLabel32: TppLabel;
    ppLabel5: TppLabel;
    ppSummaryBand1: TppSummaryBand;
    ppDBCalc1: TppDBCalc;
    ppLabel10: TppLabel;
    ppLabel13: TppLabel;
    ppDBCalc2: TppDBCalc;
    ppLabel15: TppLabel;
    ppReport2: TppReport;
    ppBDEPipeline2: TppBDEPipeline;
    ppHeaderBand2: TppHeaderBand;
    ppDetailBand2: TppDetailBand;
    ppTitleBand2: TppTitleBand;
    ppLabel16: TppLabel;
    ppDBText9: TppDBText;
    ppLabel22: TppLabel;
    ppDBText12: TppDBText;
    ppLabel23: TppLabel;
    ppDBText15: TppDBText;
    ppLabel24: TppLabel;
    ppDBText20: TppDBText;
    ppLabel25: TppLabel;
    ppDBText21: TppDBText;
    ppLabel26: TppLabel;
    ppDBText22: TppDBText;
    ppLabel33: TppLabel;
    ppLine2: TppLine;
    ppSummaryBand2: TppSummaryBand;
    ppLabel34: TppLabel;
    ppLabel35: TppLabel;
    ppLabel36: TppLabel;
    ppLabel37: TppLabel;
    ppSystemVariable3: TppSystemVariable;
    ppLabel38: TppLabel;
    ppSystemVariable4: TppSystemVariable;
    ppLabel39: TppLabel;
    ppLabel48: TppLabel;
    ppDBCalc3: TppDBCalc;
    ppLabel49: TppLabel;
    ppLabel50: TppLabel;
    ppDBCalc4: TppDBCalc;
    ppBDEPipeline3: TppBDEPipeline;
    ppReport3: TppReport;
    ppHeaderBand3: TppHeaderBand;
    ppDetailBand3: TppDetailBand;
    ppTitleBand3: TppTitleBand;
    ppLabel21: TppLabel;
    ppDBText4: TppDBText;
    ppLabel40: TppLabel;
    ppDBText23: TppDBText;
    ppLabel41: TppLabel;
    ppDBText24: TppDBText;
    ppLabel42: TppLabel;
    ppDBText25: TppDBText;
    ppLabel43: TppLabel;
    ppDBText26: TppDBText;
    ppLabel44: TppLabel;
    ppDBText27: TppDBText;
    ppLabel45: TppLabel;
    ppDBText28: TppDBText;
    ppLabel46: TppLabel;
    ppDBText29: TppDBText;
    ppLabel47: TppLabel;
    ppLine3: TppLine;
    ppSummaryBand3: TppSummaryBand;
    ppLabel51: TppLabel;
    ppLabel53: TppLabel;
    ppLabel54: TppLabel;
    ppSystemVariable5: TppSystemVariable;
    ppLabel55: TppLabel;
    ppLabel56: TppLabel;
    ppSystemVariable6: TppSystemVariable;
    ppLabel58: TppLabel;
    ppDBCalc5: TppDBCalc;
    ppLabel59: TppLabel;
    ppReport4: TppReport;
    ppBDEPipeline4: TppBDEPipeline;
    ppHeaderBand4: TppHeaderBand;
    ppDetailBand4: TppDetailBand;
    ppTitleBand4: TppTitleBand;
    ppLabel52: TppLabel;
    ppDBText30: TppDBText;
    ppLabel57: TppLabel;
    ppDBText32: TppDBText;
    ppLabel61: TppLabel;
    ppDBText33: TppDBText;
    ppLabel62: TppLabel;
    ppDBText34: TppDBText;
    ppLabel63: TppLabel;
    ppDBText35: TppDBText;
    ppLabel64: TppLabel;
    ppDBText36: TppDBText;
    ppLabel65: TppLabel;
    ppDBText37: TppDBText;
    ppLabel66: TppLabel;
    ppDBText38: TppDBText;
    ppLabel67: TppLabel;
    ppLine4: TppLine;
    ppSummaryBand4: TppSummaryBand;
    ppLabel72: TppLabel;
    ppDBCalc6: TppDBCalc;
    ppLabel73: TppLabel;
    ppLabel68: TppLabel;
    ppLabel69: TppLabel;
    ppLabel70: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppLabel71: TppLabel;
    ppLabel74: TppLabel;
    ppSystemVariable2: TppSystemVariable;
    procedure PageControl1Change(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure DBGrid5Exit(Sender: TObject);
    procedure DBGrid6Exit(Sender: TObject);
    procedure DBGrid5DblClick(Sender: TObject);
    procedure DBGrid6DblClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure PageControl1Changing(Sender: TObject;
      var AllowChange: Boolean);
    procedure ToolButton4Click(Sender: TObject);
    procedure DBNavigator1BeforeAction(Sender: TObject;
      Button: TNavigateBtn);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure adomedrecordmedpics1Change(Sender: TField);
    procedure DateTimePicker1CloseUp(Sender: TObject);
    procedure AdomedrecordworknoChange(Sender: TField);
    procedure Adomedrecordmedno1Change(Sender: TField);
    procedure AdomedtotalworknoChange(Sender: TField);
    procedure AdomedtotalAfterInsert(DataSet: TDataSet);
    procedure AdodoctorworknoChange(Sender: TField);
    procedure tbnfindClick(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);