xs_re.pas

一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码

unit Xs_re;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, baseform, StdCtrls, Mask, DBCtrls, ExtCtrls, dxExEdtr, dxCntner,
  dxTL, dxDBCtrl, dxDBGrid, DB, ADODB, Buttons, dxDBTLCl, dxGrClms,
  ActnList, DBActns, Menus, dxEditor, dxEdLib, dxDBELib, FR_Class, FR_DSet,
  FR_DBSet;

type
  TfXs_re = class(Tfbaseform)
    lbl1: TLabel;
    GroupBox1: TGroupBox;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl: TLabel;
    lbl5: TLabel;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    dxDBGrid1: TdxDBGrid;
    Panel9: TPanel;
    Panel10: TPanel;
    Panel11: TPanel;
    Panel12: TPanel;
    Panel13: TPanel;
    Panel14: TPanel;
    Panel15: TPanel;
    lbl123: TLabel;
    lbl444: TLabel;
    lbl6: TLabel;
    lbl7: TLabel;
    lbl8: TLabel;
    lbl9: TLabel;
    lbl10: TLabel;
    lbl11: TLabel;
    Qmaster: TADOQuery;
    Sourcemaster: TDataSource;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    Qdetail: TADOQuery;
    Sourcedetail: TDataSource;
    dbedtage: TDBEdit;
    dbcbbsex: TDBComboBox;
    DBMemo1: TDBMemo;
    dbmmo1: TDBMemo;
    dxDBGrid1Op_pname: TdxDBGridColumn;
    dxDBGrid1Op_qty: TdxDBGridMaskColumn;
    dxDBGrid1Op_utype: TdxDBGridColumn;
    dxDBGrid1op_unit: TdxDBGridColumn;
    lbl12: TLabel;
    Edit1: TEdit;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    BitBtn2: TBitBtn;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    ActionList1: TActionList;
    DataSetRefresh1: TDataSetRefresh;
    Qdetailid: TAutoIncField;
    Qdetailfcode: TWideStringField;
    QdetailDe_pcode: TWideStringField;
    QdetailDe_pname: TWideStringField;
    QdetailDe_aveprice: TFloatField;
    QdetailDe_sprice: TFloatField;
    QdetailDe_qty: TFloatField;
    QdetailDe_sum: TFloatField;
    QdetailDe_utype: TWideStringField;
    QdetailDe_spec: TWideStringField;
    QdetailDe_jx: TWideStringField;
    QdetailDe_yield: TDateTimeField;
    Qdetailfmem: TWideStringField;
    QdetailfSort: TWideStringField;
    QdetailDe_unit: TWideStringField;
    Qdetailphy_name: TWideStringField;
    Temp: TADOQuery;
    PopupMenu1: TPopupMenu;
    N21: TMenuItem;
    Qmasterid: TAutoIncField;
    Qmasterfcode: TWideStringField;
    QmasterOp_date: TDateTimeField;
    QmasterOp_name: TWideStringField;
    QmasterOp_sex: TWideStringField;
    QmasterOp_age: TIntegerField;
    QmasterOp_allergy: TWideStringField;
    QmasterOp_inport: TWideStringField;
    QmasterOp_diagnose: TWideStringField;
    QmasterOp_xyf: TFloatField;
    QmasterOp_cyf: TFloatField;
    QmasterOp_zsf: TFloatField;
    QmasterOp_other: TFloatField;
    QmasterOp_worker: TWideStringField;
    QmasterOp_oddments: TFloatField;
    QmasterOp_checked: TIntegerField;
    Qmasterfmem: TWideStringField;
    QmasterfSort: TWideStringField;
    Qmasterop_zlf: TFloatField;
    QmasterOp_sum: TFloatField;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    QdetailPhy_retail1: TFloatField;
    QdetailPhy_retail2: TFloatField;
    QdetailPhy_retail3: TFloatField;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    N1: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    delete: TADOQuery;
    Qmasterop_code: TWideStringField;
    Qmasterbh: TStringField;
    dxDBButtonEdit1: TdxDBButtonEdit;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    DBCheckBox1: TDBCheckBox;
    Qdetailunit: TStringField;
    check: TADOQuery;
    N11: TMenuItem;
    frDBDataSet1: TfrDBDataSet;
    frReport1: TfrReport;
    procedure dbedtageEnter(Sender: TObject);
    procedure dbedtageExit(Sender: TObject);
    procedure DBMemo1Enter(Sender: TObject);
    procedure DBMemo1Exit(Sender: TObject);
    procedure dbmmo1Enter(Sender: TObject);
    procedure dbmmo1Exit(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SourcemasterStateChange(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure QmasterAfterPost(DataSet: TDataSet);
    procedure QmasterAfterInsert(DataSet: TDataSet);
    procedure FormCreate(Sender: TObject);
    procedure QdetailDe_qtyValidate(Sender: TField);
    procedure QdetailDe_spriceValidate(Sender: TField);
    procedure QmasterBeforePost(DataSet: TDataSet);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure dxDBButtonEdit1ButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fXs_re: TfXs_re;

implementation

uses dataform, selectproduce, Global, xs_find, pubdata, xs_selectbr;

{$R *.dfm}

procedure TfXs_re.dbedtageEnter(Sender: TObject);
begin
  inherited;
dbedtage.Color:=clSkyBlue;
end;

procedure TfXs_re.dbedtageExit(Sender: TObject);
begin
  inherited;
dbedtage.Color:=clWindow;
end;

procedure TfXs_re.DBMemo1Enter(Sender: TObject);
begin
  inherited;
DBMemo1.Color:=clSkyBlue;
end;

procedure TfXs_re.DBMemo1Exit(Sender: TObject);
begin
  inherited;
DBMemo1.Color:=clWindow;
end;

procedure TfXs_re.dbmmo1Enter(Sender: TObject);
begin
  inherited;
dbmmo1.Color:=clSkyBlue;
end;

procedure TfXs_re.dbmmo1Exit(Sender: TObject);
begin
  inherited;
dbmmo1.Color:=clWindow;
end;

procedure TfXs_re.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;//退出判断
if (Qmaster.State in [dsedit,dsinsert]) or (Qdetail.State in [dsedit,dsinsert]) then
    if MessageBox(0, '你所开的单据尚未保存，是否退出？', '提示', MB_OKCANCEL)= IDOK then
     begin           
      Qmaster.Cancel;
      Qdetail.Cancel;
      action:=caFree;
     end;    
if not (Qmaster.State in [dsedit,dsinsert]) and not(Qdetail.State in [dsedit,dsinsert]) then
    action:=caFree;
end;

procedure TfXs_re.BitBtn2Click(Sender: TObject);
begin
  inherited;
//添加记录
if  not(Qmaster.State in [dsedit,dsinsert]) then
     begin
     Qmaster.Append;
     GroupBox1.Enabled:=True;
     dxDBButtonEdit1.SetFocus;
     tmpname:='xs_open';
     Qmaster.FieldByName('fcode').Value:=getcode('XS');
     Qmaster.FieldByName('Op_date').Value:=FormatDateTime('YYYY-MM-DD',Date());
     Qmaster.FieldByName('Op_worker').Value:=fData.Sqltmp['User_name'];
     Qmaster.FieldByName('Op_sex').Value:='男';
     Qmaster.FieldByName('Op_checked').Value:=0;
     BitBtn1.Enabled:=True;
     end
     else
     begin
      if  Qmaster.State in [dsedit,dsinsert] then
       if MessageBox(0, '你所开的单据尚未保存，是否新增记录？', '提示', MB_OKCANCEL) = IDOK then
       begin
       Qmaster.Cancel;
       Qdetail.Cancel;
       name:='cg_master';
       Qmaster.Append;
       Qmaster.FieldByName('fcode').Value:=getcode('XS');
       Qmaster.FieldByName('Op_date').Value:=FormatDateTime('YYYY-MM-DD',Date());
       Qmaster.FieldByName('Op_worker').Value:=fData.Sqltmp['User_name'];
       Qmaster.FieldByName('Op_sex').Value:='男';
       Qmaster.FieldByName('Op_checked').Value:=0;
       BitBtn1.Enabled:=True;
      end;
      end;
end;

procedure TfXs_re.Edit1Exit(Sender: TObject);
begin
  inherited;
  //选择药品
if (Trim(Edit1.Text)<>'') and ( Qmaster.State in [dsedit,dsinsert] ) then
   begin
   fselectproduce:=Tfselectproduce.Create(Self);    
   fselectproduce.selectpro.Close;
   fselectproduce.selectpro.SQL.Clear;
   fselectproduce.selectpro.SQL.Add('select * from Bs_physic where (Phy_name like '+''''+'%'+Trim(fXs_re.Edit1.Text)+'%'+''''+') or (phy_code like '+''''+'%'+Trim(fXs_re.Edit1.Text)+'%'+''''+') or(');