selectproxs.pas

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

unit selectproxs;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, baseform, dxExEdtr, StdCtrls, dxDBGrid, dxCntner, dxTL,
  dxDBCtrl, dxDBTL, DB, ADODB, Buttons;

type
  Tfselectproxs = class(Tfbaseform)
    dxDBTreeList1: TdxDBTreeList;
    dxDBGrid1: TdxDBGrid;
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    prosearch: TEdit;
    selecttype: TADOQuery;
    dstype: TDataSource;
    dsitem: TDataSource;
    selectpro: TADOQuery;
    selectproid: TAutoIncField;
    selectproPhy_code: TWideStringField;
    selectproPhy_name: TWideStringField;
    selectproPhy_type: TWideStringField;
    selectproPhy_marking: TWideStringField;
    selectproPhy_abc: TWideStringField;
    selectproPhy_unit: TWideStringField;
    selectproPhy_aveprice: TFloatField;
    selectproPhy_retail1: TFloatField;
    selectproPhy_unit1: TWideStringField;
    selectproPhy_unit1rate: TFloatField;
    selectproPhy_retail2: TFloatField;
    selectproPhy_unit2: TWideStringField;
    selectproPhy_unit2rate: TFloatField;
    selectproPhy_retail3: TFloatField;
    selectproPhy_unit3: TWideStringField;
    selectproPhy_unit3rate: TFloatField;
    selectproPhy_retail4: TFloatField;
    selectproPhy_up: TFloatField;
    selectproPhy_down: TFloatField;
    selectproPhy_spec: TWideStringField;
    selectproPhy_xz: TWideStringField;
    selectproPhy_fit: TWideStringField;
    selectproPhy_reaction: TWideStringField;
    selectproPhy_enjoin: TWideStringField;
    selectproPhy_attention: TWideStringField;
    selectproPhy_savedate: TFloatField;
    selectproPhy_otc: TIntegerField;
    selectproPhy_out: TIntegerField;
    selectprofmem: TWideStringField;
    selectprofSort: TWideStringField;
    dxDBGrid1Phy_code: TdxDBGridColumn;
    dxDBGrid1Phy_name: TdxDBGridColumn;
    dxDBGrid1Phy_marking: TdxDBGridColumn;
    dxDBGrid1Phy_unit: TdxDBGridColumn;
    selecttypeid: TAutoIncField;
    selecttypefcode: TWideStringField;
    selecttypeTy_name: TWideStringField;
    selecttypefathercode: TWideStringField;
    selecttypefmem: TWideStringField;
    selecttypefSort: TWideStringField;
    dxDBTreeList1Column1: TdxDBTreeListColumn;
    dxDBTreeList1Column2: TdxDBTreeListColumn;
    dxDBGrid1Column5: TdxDBGridColumn;
    selectprophy_used: TWideStringField;
    procedure dxDBTreeList1DblClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fselectproxs: Tfselectproxs;

implementation

uses dataform, Xs_re;

{$R *.dfm}

procedure Tfselectproxs.dxDBTreeList1DblClick(Sender: TObject);
begin
  inherited;
  //双击
selectpro.Close;
selectpro.SQL.Clear;
selectpro.SQL.Add('select * from Bs_physic where Phy_type like '+''''+'%'+selecttype['fcode']+'%'+'''');
selectpro.Open;
end;

procedure Tfselectproxs.BitBtn1Click(Sender: TObject);
begin
  inherited;
  //查找
selectpro.Close;
selectpro.SQL.Clear;
selectpro.SQL.Add('select * from Bs_physic where (Phy_type like '+''''+'%'+Trim(prosearch.Text)+'%'+''''+') or (Phy_code like '+''''+'%'+Trim(prosearch.Text)+'%'+''''+')');
selectpro.Open;
end;

procedure Tfselectproxs.BitBtn2Click(Sender: TObject);
begin
  inherited;
//添加记录
if not  fXs_re.Qdetail.Locate('De_pcode',selectpro['phy_code'],[loCaseInsensitive]) then
   begin
    fXs_re.Qdetail.Append;
    fXs_re.Qdetail.FieldByName('fcode').Value:=fXs_re.Qmaster['fcode'];
    ShowMessage(fXs_re.Qdetail.FieldByName('fcode').Value);
    fXs_re.Qdetail.FieldByName('De_pcode').Value:=selectpro['Phy_code'];
    fXs_re.Qdetail.FieldByName('De_pname').Value:=selectpro['Phy_name'];
    fXs_re.Qdetail.FieldByName('De_unit').Value:=selectpro['Phy_unit'];
    fXs_re.Qdetail.FieldByName('De_sprice').Value:=selectpro['Phy_retail1'];
    fXs_re.Qdetail.FieldByName('De_utype').Value:=selectpro['phy_used'];
    Close;
   end
  else
   MessageBox(0, '该处方单已开过此药了！', '提示', MB_OK + MB_TOPMOST);
end;

end.