hi_draw.pas

来自「一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码」· PAS 代码 · 共 358 行

unit Hi_draw;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, baseform, DB, ADODB, Buttons, ToolWin, ComCtrls, ActnList,
  ImgList, StdCtrls, DBCtrls, dxCntner, dxEditor, dxExEdtr, dxEdLib,
  dxDBELib, Mask, dxDBTLCl, dxGrClms, dxDBGrid, dxTL, dxDBCtrl, ExtCtrls;

type
  TfHi_draw = class(Tfbaseform)
    ImageList1: TImageList;
    ActionList: TActionList;
    actpirot1: TAction;
    actnext: TAction;
    actadd: TAction;
    actdel: TAction;
    actedit: TAction;
    actquit: TAction;
    actexcel: TAction;
    actsave: TAction;
    actfind: TAction;
    actprerice: TAction;
    baseSource: TDataSource;
    ToolBar1: TToolBar;
    SpeedButton5: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton1: TSpeedButton;
    Qbaseinfo: TADOQuery;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Qbaseinfoid: TAutoIncField;
    QbaseinfoFcode: TWideStringField;
    QbaseinfoDr_name: TWideStringField;
    QbaseinfoDr_age: TIntegerField;
    QbaseinfoDr_sex: TWideStringField;
    QbaseinfoDr_born: TDateTimeField;
    QbaseinfoDr_adds: TWideStringField;
    QbaseinfoDr_tel: TWideStringField;
    QbaseinfoDr_self: TWideStringField;
    QbaseinfoDr_gm: TWideStringField;
    QbaseinfoDr_jz: TWideStringField;
    QbaseinfoDr_gr: TWideStringField;
    QbaseinfoDr_jw: TWideStringField;
    QbaseinfoDr_xb: TWideStringField;
    QbaseinfoDr_result: TWideStringField;
    QbaseinfoDr_transact: TWideStringField;
    QbaseinfoDr_worker: TWideStringField;
    QbaseinfoFdate: TDateTimeField;
    Qbaseinfofmem: TWideStringField;
    QbaseinfofSort: TWideStringField;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Fcode: TdxDBGridColumn;
    dxDBGrid1Dr_name: TdxDBGridColumn;
    dxDBGrid1Dr_age: TdxDBGridMaskColumn;
    dxDBGrid1Dr_sex: TdxDBGridColumn;
    dxDBGrid1Dr_born: TdxDBGridDateColumn;
    dxDBGrid1Dr_adds: TdxDBGridColumn;
    dxDBGrid1Dr_tel: TdxDBGridColumn;
    dxDBGrid1Dr_self: TdxDBGridColumn;
    dxDBGrid1Dr_gm: TdxDBGridColumn;
    dxDBGrid1Dr_jz: TdxDBGridColumn;
    dxDBGrid1Dr_gr: TdxDBGridColumn;
    dxDBGrid1Dr_jw: TdxDBGridColumn;
    dxDBGrid1Dr_xb: TdxDBGridColumn;
    dxDBGrid1Dr_result: TdxDBGridColumn;
    dxDBGrid1Dr_transact: TdxDBGridColumn;
    dxDBGrid1Dr_worker: TdxDBGridColumn;
    dxDBGrid1Fdate: TdxDBGridDateColumn;
    dxDBGrid1fmem: TdxDBGridColumn;
    dxDBGrid2: TdxDBGrid;
    Label1: TLabel;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ADOQuery1id: TAutoIncField;
    ADOQuery1fcode: TWideStringField;
    ADOQuery1Op_date: TDateTimeField;
    ADOQuery1Op_name: TWideStringField;
    ADOQuery1Op_sex: TWideStringField;
    ADOQuery1Op_age: TIntegerField;
    ADOQuery1Op_allergy: TWideStringField;
    ADOQuery1Op_inport: TWideStringField;
    ADOQuery1Op_diagnose: TWideStringField;
    ADOQuery1Op_xyf: TFloatField;
    ADOQuery1Op_cyf: TFloatField;
    ADOQuery1Op_zsf: TFloatField;
    ADOQuery1Op_other: TFloatField;
    ADOQuery1Op_worker: TWideStringField;
    ADOQuery1Op_oddments: TFloatField;
    ADOQuery1Op_checked: TIntegerField;
    ADOQuery1fmem: TWideStringField;
    ADOQuery1fSort: TWideStringField;
    ADOQuery1op_zlf: TFloatField;
    ADOQuery1Op_sum: TFloatField;
    dxDBGrid2fcode: TdxDBGridColumn;
    dxDBGrid2Op_date: TdxDBGridDateColumn;
    dxDBGrid2Op_name: TdxDBGridColumn;
    dxDBGrid2Op_sex: TdxDBGridColumn;
    dxDBGrid2Op_age: TdxDBGridMaskColumn;
    dxDBGrid2Op_inport: TdxDBGridColumn;
    dxDBGrid2Op_diagnose: TdxDBGridColumn;
    Panel1: TPanel;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    lbl6: TLabel;
    lbl7: TLabel;
    lbl8: TLabel;
    lbl9: TLabel;
    lbl10: TLabel;
    lbl11: TLabel;
    lbl12: TLabel;
    lbl13: TLabel;
    lbl14: TLabel;
    lbl15: TLabel;
    lbl16: TLabel;
    dbedtcode: TDBEdit;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit4: TDBEdit;
    DBComboBox1: TDBComboBox;
    dxDBDateEdit1: TdxDBDateEdit;
    dxDBDateEdit2: TdxDBDateEdit;
    DBMemo1: TDBMemo;
    DBMemo2: TDBMemo;
    DBMemo3: TDBMemo;
    DBMemo4: TDBMemo;
    DBMemo5: TDBMemo;
    DBMemo6: TDBMemo;
    DBMemo7: TDBMemo;
    DBMemo8: TDBMemo;
    DBLookupComboBox1: TDBLookupComboBox;
    ADOQuery1op_code: TWideStringField;
    ADOQuery1asd: TStringField;
    Qbaseinfodoctor: TStringField;
    dxDBGrid3: TdxDBGrid;
    xs_detail: TADOQuery;
    sourcedetail: TDataSource;
    xs_detailaid: TAutoIncField;
    xs_detailafcode: TWideStringField;
    xs_detailDe_pcode: TWideStringField;
    xs_detailDe_pname: TWideStringField;
    xs_detailDe_aveprice: TFloatField;
    xs_detailDe_sprice: TFloatField;
    xs_detailDe_qty: TFloatField;
    xs_detailDe_sum: TFloatField;
    xs_detailDe_utype: TWideStringField;
    xs_detailDe_spec: TWideStringField;
    xs_detailDe_jx: TWideStringField;
    xs_detailDe_yield: TDateTimeField;
    xs_detailafmem: TWideStringField;
    xs_detailafSort: TWideStringField;
    xs_detailDe_unit: TWideStringField;
    xs_detailbid: TAutoIncField;
    xs_detailbfcode: TWideStringField;
    xs_detailOp_date: TDateTimeField;
    xs_detailOp_name: TWideStringField;
    xs_detailOp_sex: TWideStringField;
    xs_detailOp_age: TIntegerField;
    xs_detailOp_allergy: TWideStringField;
    xs_detailOp_inport: TWideStringField;
    xs_detailOp_diagnose: TWideStringField;
    xs_detailOp_xyf: TFloatField;
    xs_detailOp_cyf: TFloatField;
    xs_detailOp_zsf: TFloatField;
    xs_detailOp_other: TFloatField;
    xs_detailOp_worker: TWideStringField;
    xs_detailOp_oddments: TFloatField;
    xs_detailOp_checked: TIntegerField;
    xs_detailbfmem: TWideStringField;
    xs_detailbfSort: TWideStringField;
    xs_detailop_zlf: TFloatField;
    xs_detailOp_sum: TFloatField;
    xs_detailop_code: TWideStringField;
    dxDBGrid3afcode: TdxDBGridColumn;
    dxDBGrid3De_pcode: TdxDBGridColumn;
    dxDBGrid3De_pname: TdxDBGridColumn;
    dxDBGrid3De_qty: TdxDBGridMaskColumn;
    dxDBGrid3De_utype: TdxDBGridColumn;
    Label2: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure actprericeExecute(Sender: TObject);
    procedure actsaveExecute(Sender: TObject);
    procedure actquitExecute(Sender: TObject);
    procedure acteditExecute(Sender: TObject);
    procedure actdelExecute(Sender: TObject);
    procedure actaddExecute(Sender: TObject);
    procedure actexcelExecute(Sender: TObject);
    procedure actpirot1Execute(Sender: TObject);
    procedure actnextExecute(Sender: TObject);
    procedure actfindExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fHi_draw: TfHi_draw;

implementation

uses dataform, Global, pubdata, draw_find;

{$R *.dfm}

procedure TfHi_draw.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
action:=caFree;
end;

procedure TfHi_draw.actprericeExecute(Sender: TObject);
begin
  inherited;
if  Qbaseinfo.State in [dsinsert,dsedit] then
   if MessageBox(0, '要取消息当前操作吗？', '提示', MB_OKCANCEL + MB_ICONINFORMATION + MB_TOPMOST) = IDOK then
     begin
      Qbaseinfo.Cancel;
      SpeedButton5.Enabled:=True;
      SpeedButton3.Enabled:=True;
      SpeedButton8.Enabled:=False;
      SpeedButton4.Enabled:=False;
      Panel1.Enabled:=False;
     end;


end;

procedure TfHi_draw.actsaveExecute(Sender: TObject);
begin
  inherited;
if (Qbaseinfo.State in [dsedit,dsinsert]) and ( not Qbaseinfo.FieldByName('fcode').IsNull) then
   begin
   Qbaseinfo.Post;
   panel1.Enabled:=False;
   SpeedButton5.Enabled:=True;
   SpeedButton3.Enabled:=True;
   SpeedButton8.Enabled:=False;
   SpeedButton4.Enabled:=False;
 end
 else
 MessageBox(0, '编号不能为空！', '提示', MB_OK + MB_ICONINFORMATION + 
   MB_TOPMOST);
   
end;

procedure TfHi_draw.actquitExecute(Sender: TObject);
begin
  inherited;
if not (Qbaseinfo.State in [dsedit,dsinsert]) then
   close;
if Qbaseinfo.State in [dsedit,dsinsert] then
   if MessageBox(0, '尚未保存数据，是否退出？', '提示', MB_OKCANCEL + 
     MB_ICONINFORMATION + MB_TOPMOST) = IDOK then
   begin
     Close;
   end;
end;

procedure TfHi_draw.acteditExecute(Sender: TObject);
begin
  inherited;
if not (Qbaseinfo.State in [dsedit,dsinsert]) then
   begin
   Qbaseinfo.Edit;
   SpeedButton5.Enabled:=False;
   SpeedButton8.Enabled:=True;
   SpeedButton4.Enabled:=True;
   panel1.Enabled:=True;
   end;
end;

procedure TfHi_draw.actdelExecute(Sender: TObject);
begin
  inherited;
if Qbaseinfo.RecordCount=0 then
   begin
   Exit;
   MessageBox(0, '已无记录！', '提示', MB_OK + MB_ICONQUESTION + MB_TOPMOST);
   end;
if not (Qbaseinfo.State in [dsedit,dsinsert]) then
  if MessageBox(0, '真的要删除这条记录吗？', '提示', MB_OKCANCEL + MB_ICONINFORMATION + MB_TOPMOST) = IDOK then
   begin
    Qbaseinfo.Delete;
   end;

end;

procedure TfHi_draw.actaddExecute(Sender: TObject);
begin
  inherited;
//添加
tmpname:='Hi_draw';
panel1.Enabled:=True;
Qbaseinfo.Append;
dbedtcode.SetFocus;
//Qbaseinfo.FieldByName('Fcode').Value:=getcode('HI');
Qbaseinfo.FieldByName('Fdate').Value:=FormatDateTime('YYYY-MM-DD',Date());
Qbaseinfo.FieldByName('Dr_worker').Value:=fData.Sqltmp['User_code'];
Qbaseinfo.FieldByName('Dr_sex').Value:='男';
SpeedButton5.Enabled:=False;
SpeedButton3.Enabled:=False;
SpeedButton8.Enabled:=True;
SpeedButton4.Enabled:=True;
end;

procedure TfHi_draw.actexcelExecute(Sender: TObject);
begin
  inherited;
//导出
  fdata.dlgSave.Filter := 'Microsoft Excel Workbook (*.xls)|*.XLS|xml(*.xml)|*.xml|HTML file (*.htm)|*.HTM';
  fdata.dlgSave.DefaultExt:='xls';
  fdata.dlgSave.FileName := FormatDateTime('YYYY-MM-DD',Date());
  if fdata.dlgSave.Execute then
    begin
      case fdata.dlgSave.FilterIndex of
        1: dxDBGrid1.SaveToxls(fdata.dlgSave.FileName,True);
        2: dxDBGrid1.SaveToXML(fdata.dlgSave.FileName,true);
        3: dxDBGrid1.SaveToHTML(fdata.dlgSave.FileName,true);
      end;
    end;
  MessageBox(0, '导出完毕！', '提示', MB_OK + MB_ICONINFORMATION + MB_TOPMOST);

end;

procedure TfHi_draw.actpirot1Execute(Sender: TObject);
begin
  inherited;
Qbaseinfo.Prior;
end;

procedure TfHi_draw.actnextExecute(Sender: TObject);
begin
  inherited;
Qbaseinfo.Next;
end;

procedure TfHi_draw.actfindExecute(Sender: TObject);
begin
  inherited;
fdraw_find:=Tfdraw_find.Create(Self);
fdraw_find.ShowModal;
end;

end.