mainform.pas

医院病历管理简易版,完全用DELPHI实现.

unit MainForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, StdCtrls, wwcheckbox, DBTables, Grids, Wwdbigrd, Wwdbgrid, ComCtrls,
  wwriched, Mask, wwdbedit, wwdbdatetimepicker, Buttons, wwdblook,
  wwDialog, wwrcdvw, wwclearbuttongroup, wwradiogroup, wwradiobutton,
  wwrcdpnl, wwmonthcalendar, ImgList, wwDataInspector, ADODB, ExtCtrls,
  RzPanel, DBGrids, wwSpeedButton, wwDBNavigator, wwclearpanel, RzGroupBar,
  RzTabs, DBCtrls, RzDBEdit, RpBase, RpSystem, RpDefine, RpRave, Wwlocate,
  RpCon, RpConDS, RpConBDE, math, strutils, RzStatus, dateutils;

type
  TfmMain = class(TForm)
    grdMain: TwwDBGrid;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    ImageList1: TImageList;
    tblBingLi: TADOTable;
    ADOConnection1: TADOConnection;
    tblBingLiID: TAutoIncField;
    tblBingLiXingMing: TWideStringField;
    tblBingLiXingBie: TWideStringField;
    tblBingLiNianLing: TSmallintField;
    tblBingLiHunKuang: TBooleanField;
    tblBingLiMinZu: TWideStringField;
    tblBingLiZhiYe: TWideStringField;
    tblBingLiChuShengDi: TWideStringField;
    tblBingLiGuoJi: TWideStringField;
    tblBingLiZhuZhi: TWideStringField;
    tblBingLiYouZhengMa: TIntegerField;
    tblBingLiJiWangShi: TMemoField;
    tblBingLiGeRenShi: TMemoField;
    tblBingLiYueJingShi: TMemoField;
    tblBingLiHunYuShi: TMemoField;
    tblBingLiGuoMinShi: TMemoField;
    tblBingLiJiaZuShi: TMemoField;
    tblXiMu: TADOTable;
    wwExpandButton2: TwwExpandButton;
    wwRadioGroup5: TwwRadioGroup;
    radiomacballimagelist: TImageList;
    sexImageList: TImageList;
    maritalImageList: TImageList;
    wwRadioGroup1: TwwRadioGroup;
    wwDBNavigator1: TwwDBNavigator;
    wwDBNavigator1First: TwwNavButton;
    wwDBNavigator1PriorPage: TwwNavButton;
    wwDBNavigator1Prior: TwwNavButton;
    wwDBNavigator1Next: TwwNavButton;
    wwDBNavigator1NextPage: TwwNavButton;
    wwDBNavigator1Last: TwwNavButton;
    wwDBNavigator1Insert: TwwNavButton;
    wwDBNavigator1Delete: TwwNavButton;
    wwDBNavigator1Post: TwwNavButton;
    wwDBNavigator1Cancel: TwwNavButton;
    wwDBNavigator1Refresh: TwwNavButton;
    wwDBNavigator1SaveBookmark: TwwNavButton;
    wwDBNavigator1RestoreBookmark: TwwNavButton;
    pc1: TRzPageControl;
    ts1: TRzTabSheet;
    ts2: TRzTabSheet;
    RzGroupBar1: TRzGroupBar;
    rgJiWangShi: TRzGroup;
    rgYueJingShi: TRzGroup;
    RzGroup3: TRzGroup;
    wwDBGrid1: TwwDBGrid;
    wwDBNavigator2: TwwDBNavigator;
    wwNavButton1: TwwNavButton;
    wwNavButton2: TwwNavButton;
    wwNavButton3: TwwNavButton;
    wwNavButton4: TwwNavButton;
    wwNavButton5: TwwNavButton;
    wwNavButton6: TwwNavButton;
    wwNavButton7: TwwNavButton;
    wwNavButton8: TwwNavButton;
    wwNavButton10: TwwNavButton;
    wwNavButton11: TwwNavButton;
    wwNavButton12: TwwNavButton;
    wwNavButton13: TwwNavButton;
    wwNavButton14: TwwNavButton;
    RzDBMemo2: TRzDBMemo;
    RzDBMemo3: TRzDBMemo;
    RzGroup4: TRzGroup;
    RzGroup5: TRzGroup;
    RzGroup6: TRzGroup;
    RzDBMemo4: TRzDBMemo;
    RzDBMemo5: TRzDBMemo;
    RzDBMemo6: TRzDBMemo;
    tblXiMuID: TIntegerField;
    tblXiMuNo: TSmallintField;
    tblXiMuBingQu: TWideStringField;
    tblXiMuZhuYuanHao: TIntegerField;
    tblXiMuRuYuanSJ: TDateTimeField;
    tblXiMuJiLuSJ: TDateTimeField;
    tblXiMuChuYuanSJ: TDateTimeField;
    tblXiMuGongShiZhe: TWideStringField;
    tblXiMuKeXinDu: TWideStringField;
    tblXiMuFaBingJieQi: TWideStringField;
    tblXiMuWenZhen: TMemoField;
    tblXiMuZhuSu: TMemoField;
    tblXiMuXianBingShi: TMemoField;
    tblXiMutemp: TIntegerField;
    RzPageControl2: TRzPageControl;
    TabSheet3: TRzTabSheet;
    TabSheet4: TRzTabSheet;
    tblBingLitemp1: TIntegerField;
    RzDBMemo1: TRzDBMemo;
    RzGroupBar2: TRzGroupBar;
    rgWenZhen: TRzGroup;
    RzGroup8: TRzGroup;
    RzGroup9: TRzGroup;
    RzDBMemo7: TRzDBMemo;
    RzDBMemo8: TRzDBMemo;
    RzDBMemo9: TRzDBMemo;
    RzGroupBar3: TRzGroupBar;
    RzGroup10: TRzGroup;
    RzDBMemo10: TRzDBMemo;
    RzGroup11: TRzGroup;
    RzDBMemo11: TRzDBMemo;
    RzGroup12: TRzGroup;
    RzDBMemo12: TRzDBMemo;
    tblXiMuMenZhenZhenDuan: TWideStringField;
    tblXiMuLinChuangChuZhen: TWideStringField;
    tblXiMuLinChuangQueZhen: TMemoField;
    tblXiMuZhiLiaoXiaoGuo: TWideStringField;
    tblXiMuRuYuanZhuangTai: TMemoField;
    tblXiMuZhiLiaoJingGuo: TMemoField;
    tblXiMuChuYuanZhuangTai: TMemoField;
    tblXiMuChuYuanYiZhu: TMemoField;
    RzGroup13: TRzGroup;
    RzDBMemo13: TRzDBMemo;
    RzGroup14: TRzGroup;
    RzDBMemo14: TRzDBMemo;
    wwDBNavigator2Button: TwwNavButton;
    wwDBNavigator2Button1: TwwNavButton;
    tblBingLiAddr: TStringField;
    wwDataInspector1: TwwDataInspector;
    wwExpandButton3: TwwExpandButton;
    tblBingLiNatr: TStringField;
    wwDataInspector2: TwwDataInspector;
    wwExpandButton4: TwwExpandButton;
    tblXiMuChuZhen: TStringField;
    wwDataInspector3: TwwDataInspector;
    wwDataInspector4: TwwDataInspector;
    wwExpandButton5: TwwExpandButton;
    wwExpandButton6: TwwExpandButton;
    tblXiMuShiJian: TStringField;
    rvp1: TRvProject;
    rvs1: TRvSystem;
    ld1: TwwLocateDialog;
    wwDBNavigator1Button: TwwNavButton;
    wwExpandButton7: TwwExpandButton;
    tblXiMuMyKey: TAutoIncField;
    qry1: TADOQuery;
    RvCustomConnection1: TRvCustomConnection;
    RvDataSetConnection1: TRvDataSetConnection;
    qry1bingliID: TAutoIncField;
    qry1XingMing: TWideStringField;
    qry1XingBie: TWideStringField;
    qry1NianLing: TSmallintField;
    qry1HunKuang: TBooleanField;
    qry1MinZu: TWideStringField;
    qry1ZhiYe: TWideStringField;
    qry1ChuShengDi: TWideStringField;
    qry1GuoJi: TWideStringField;
    qry1ZhuZhi: TWideStringField;
    qry1YouZhengMa: TIntegerField;
    qry1JiWangShi: TMemoField;
    qry1GeRenShi: TMemoField;
    qry1YueJingShi: TMemoField;
    qry1HunYuShi: TMemoField;
    qry1GuoMinShi: TMemoField;
    qry1JiaZuShi: TMemoField;
    qry1MyKey: TAutoIncField;
    qry1No: TSmallintField;
    qry1BingQu: TWideStringField;
    qry1ZhuYuanHao: TIntegerField;
    qry1RuYuanSJ: TDateTimeField;
    qry1JiLuSJ: TDateTimeField;
    qry1ChuYuanSJ: TDateTimeField;
    qry1YiSheng: TWideStringField;
    qry1GongShiZhe: TWideStringField;
    qry1KeXinDu: TWideStringField;
    qry1FaBingJieQi: TWideStringField;
    qry1WenZhen: TMemoField;
    qry1ZhuSu: TMemoField;
    qry1XianBingShi: TMemoField;
    qry1MenZhenZhenDuan: TWideStringField;
    qry1LinChuangChuZhen: TWideStringField;
    qry1LinChuangQueZhen: TMemoField;
    qry1ZhiLiaoXiaoGuo: TWideStringField;
    qry1RuYuanZhuangTai: TMemoField;
    qry1ZhiLiaoJingGuo: TMemoField;
    qry1ChuYuanZhuangTai: TMemoField;
    qry1ChuYuanYiZhu: TMemoField;
    rzs1: TRzStatusBar;
    RzMarqueeStatus1: TRzMarqueeStatus;
    RzClockStatus1: TRzClockStatus;
    RzKeyStatus1: TRzKeyStatus;
    RzKeyStatus2: TRzKeyStatus;
    RzKeyStatus3: TRzKeyStatus;
    tblXiMuMenZhenYiSheng: TWideStringField;
    tblXiMuZhuZhiYiSheng: TWideStringField;
    tblXiMuZhuYuanYiSheng: TWideStringField;
    tblXiMuYiSheng: TWideStringField;
    wwDataInspector5: TwwDataInspector;
    wwExpandButton1: TwwExpandButton;
    qry1ximuID: TIntegerField;
    qry1MenZhenYiSheng: TWideStringField;
    qry1ZhuZhiYiSheng: TWideStringField;
    qry1ZhuYuanYiSheng: TWideStringField;
    procedure grdMainCalcTitleImage(Sender: TObject; Field: TField;
      var TitleImageAttributes: TwwTitleImageAttributes);
    procedure tblBingLiCalcFields(DataSet: TDataSet);
    procedure tblXiMuCalcFields(DataSet: TDataSet);
    procedure ld1InitDialog(Dialog: TwwLocateDlg);
    procedure tblBingLiAfterInsert(DataSet: TDataSet);
    procedure tblBingLiBeforeDelete(DataSet: TDataSet);
    procedure tblXiMuAfterInsert(DataSet: TDataSet);
    procedure wwDBNavigator2Button1Click(Sender: TObject);
    procedure RvCustomConnection1Open(Connection: TRvCustomConnection);
    procedure RvCustomConnection1GetCols(Connection: TRvCustomConnection);
    procedure RvCustomConnection1GetRow(Connection: TRvCustomConnection);