unitpatient.~pas

Delphi 控件源码

unit Unitpatient;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, IWCompEdit, IWDBStdCtrls,
  IWCompListbox, IWGrids, IWDBGrids, IWCompButton, Classes, Controls,
  IWControl, StdCtrls, IWHTMLControls, IWCompMemo, IWExtCtrls, IWCompLabel,
  jpeg;

type
  TpatientMain = class(TIWAppForm)
    IWDB3Navigator1: TIWDBNavigator;
    IWButton1: TIWButton;
    IWButton2: TIWButton;
    dgrdFish: TIWDBGrid;
    IWDBLookupComboBox1: TIWDBLookupComboBox;
    IWDBEdit1: TIWDBEdit;
    IWDBEdit2: TIWDBEdit;
    IWDBEdit3: TIWDBEdit;
    IWLabel1: TIWLabel;
    IWLabel2: TIWLabel;
    IWLabel3: TIWLabel;
    IWImage1: TIWImage;
    IWButton3: TIWButton;
    IWEdit1: TIWEdit;
    IWEdit2: TIWEdit;
    IWEdit3: TIWEdit;
    IWEdit4: TIWEdit;
    IWLabel4: TIWLabel;
    IWLabel5: TIWLabel;
    IWLabel6: TIWLabel;
    IWLabel7: TIWLabel;
    IWHRule1: TIWHRule;
    IWLabel8: TIWLabel;
    IWEdit5: TIWEdit;
    IWLabel9: TIWLabel;
    IWMemo2: TIWMemo;
    IWLabel10: TIWLabel;
    IWLabel11: TIWLabel;
    IWLabel12: TIWLabel;
    IWLabel13: TIWLabel;
    IWLabel14: TIWLabel;
    IWLabel15: TIWLabel;
    IWLabel16: TIWLabel;
    IWLabel17: TIWLabel;
    IWLabel18: TIWLabel;
    IWLabel19: TIWLabel;
    IWLabel20: TIWLabel;
    IWLabel21: TIWLabel;
    IWLabel22: TIWLabel;
    IWLabel23: TIWLabel;
    IWHRule2: TIWHRule;
    IWEdit6: TIWEdit;
    IWEdit7: TIWEdit;
    IWEdit8: TIWEdit;
    IWEdit9: TIWEdit;
    IWEdit10: TIWEdit;
    IWEdit11: TIWEdit;
    IWEdit12: TIWEdit;
    IWEdit13: TIWEdit;
    IWEdit14: TIWEdit;
    IWEdit15: TIWEdit;
    IWEdit16: TIWEdit;
    IWLabel24: TIWLabel;
    IWEdit17: TIWEdit;
    IWLabel25: TIWLabel;
    IWLabel26: TIWLabel;
    IWEdit18: TIWEdit;
    IWLabel27: TIWLabel;
    IWLabel28: TIWLabel;
    IWEdit19: TIWEdit;
    IWLabel29: TIWLabel;
    IWEdit20: TIWEdit;
    IWLabel30: TIWLabel;
    IWImage2: TIWImage;
  public
  end;

implementation
{$R *.dfm}

uses
  ServerController;
end.