cg_profind2.pas

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

unit cg_profind2;

interface

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

type
  Tfcg_profind2 = 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_profind2: Tfcg_profind2;

implementation

uses dataform, Xs_re, cg_inwhs, cg_outwhs, pubdata;

{$R *.dfm}

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

end.