cg_profind4.pas

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

unit cg_profind4;

interface

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

type
  Tfcg_profind4 = 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;
    selectprophy_factory: TWideStringField;
    selectprounit: TStringField;
    procedure dxDBTreeList1DblClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fcg_profind4: Tfcg_profind4;

implementation

uses dataform, Xs_re, cg_inwhs, Cg_otherout, pubdata;

{$R *.dfm}

procedure Tfcg_profind4.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 Tfcg_profind4.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 Tfcg_profind4.BitBtn2Click(Sender: TObject);
begin
  inherited;
//添加记录
 fCg_otherout.Qbaseinfo.FieldByName('Ma_pcode').Value:=selectpro['Phy_code'];
 fCg_otherout.Qbaseinfo.FieldByName('Ma_pname').Value:=selectpro['Phy_name'];
 fCg_otherout.Qbaseinfo.FieldByName('Ma_unit').Value:=selectpro['Phy_unit'];
 fCg_otherout.Qbaseinfo.FieldByName('Ma_factory').Value:=selectpro['Phy_retail1'];
 Close;
end;

end.