bs_factory.pas

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

unit Bs_factory;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, baseformtree, dxExEdtr, DB, ActnList, ImgList, ADODB, StdCtrls,
  DBCtrls, Mask, dxTL, dxDBCtrl, dxCntner, dxDBTL, Buttons, ToolWin,
  ComCtrls, dxDBGrid, dxDBTLCl, dxGrClms, dxdbtrel;

type
  TfBs_factory = class(Tfbaseformtree)
    Qbaseinfoid: TAutoIncField;
    QbaseinfoFty_name: TWideStringField;
    QbaseinfoFty_type: TWideStringField;
    QbaseinfoFty_area: TWideStringField;
    QbaseinfoFty_bond: TWideStringField;
    QbaseinfoFty_tel: TWideStringField;
    QbaseinfoFty_fax: TWideStringField;
    QbaseinfoFty_adds: TWideStringField;
    Qbaseinfofmem: TWideStringField;
    QbaseinfoFty_out: TIntegerField;
    QbaseinfofSort: TWideStringField;
    lbl3: TLabel;
    dblkcbbtype: TDBLookupComboBox;
    dblkcbb1: TDBLookupComboBox;
    lbl4: TLabel;
    lbl5: TLabel;
    lbl6: TLabel;
    lbl7: TLabel;
    lbl8: TLabel;
    dbchk1: TDBCheckBox;
    dbedt1: TDBEdit;
    dbedt2: TDBEdit;
    dbedt3: TDBEdit;
    dbedt4: TDBEdit;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Fty_code: TdxDBGridColumn;
    dxDBGrid1Fty_name: TdxDBGridColumn;
    dxDBGrid1Fty_type: TdxDBGridColumn;
    dxDBGrid1Fty_area: TdxDBGridColumn;
    dxDBGrid1Fty_bond: TdxDBGridColumn;
    dxDBGrid1Fty_tel: TdxDBGridColumn;
    dxDBGrid1Fty_fax: TdxDBGridColumn;
    dxDBGrid1Fty_adds: TdxDBGridColumn;
    dxDBGrid1fmem: TdxDBGridColumn;
    dxDBGrid1Fty_out: TdxDBGridCheckColumn;
    Qbaseinfofcode: TWideStringField;
    Qbaseinfoarea: TStringField;
    Qbaseinfotype: TStringField;
    procedure actaddExecute(Sender: TObject);
    procedure dxDBTreeList1DblClick(Sender: TObject);
    procedure acteditExecute(Sender: TObject);
    procedure actsaveExecute(Sender: TObject);
    procedure actrepriExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fBs_factory: TfBs_factory;

implementation

uses Bs_ftype, pubdata;

{$R *.dfm}

procedure TfBs_factory.actaddExecute(Sender: TObject);
begin
 //inherited;
SpeedButton5.Enabled:=True;
SpeedButton10.Enabled:=True;
SpeedButton7.Enabled:=False;
SpeedButton4.Enabled:=False;
//----------------
DBEdit1.Enabled:=True;
DBEdit2.Enabled:=True;
DBMemo1.Enabled:=True;
dblkcbbtype.Enabled:=True;
dblkcbb1.Enabled:=True;
dbedt1.Enabled:=True;
dbedt2.Enabled:=true;
dbedt3.Enabled:=true;
dbedt4.Enabled:=true;
dbchk1.Enabled:=True;

//----------------
Qbaseinfo.Append;
DBEdit1.SetFocus;
Qbaseinfo.FieldByName('Fty_type').Value:=fpubdata.qrydisp_ftype['fcode'];
Qbaseinfo.FieldByName('Fty_area').Value:=fpubdata.qrydisp_area['fcode'];

end;

procedure TfBs_factory.dxDBTreeList1DblClick(Sender: TObject);
begin
  inherited;
Qbaseinfo.Close;
Qbaseinfo.SQL.Clear;
Qbaseinfo.SQL.Add('select * from Bs_factory where Fty_type like '+''''+'%'+dxDBTreeList1Column1.Field.Value+'%'+'''');
Qbaseinfo.Open;
end;

procedure TfBs_factory.acteditExecute(Sender: TObject);
begin
  inherited;
dblkcbbtype.Enabled:=True;
dblkcbb1.Enabled:=True;
dbedt1.Enabled:=True;
dbedt2.Enabled:=true;
dbedt3.Enabled:=true;
dbedt4.Enabled:=true;
dbchk1.Enabled:=True;
end;

procedure TfBs_factory.actsaveExecute(Sender: TObject);
begin
  inherited;
dblkcbbtype.Enabled:=False;
dblkcbb1.Enabled:=False;
dbedt1.Enabled:=False;
dbedt2.Enabled:=False;
dbedt3.Enabled:=False;
dbedt4.Enabled:=False;
dbchk1.Enabled:=False;
end;

procedure TfBs_factory.actrepriExecute(Sender: TObject);
begin
  inherited;
dblkcbbtype.Enabled:=False;
dblkcbb1.Enabled:=False;
dbedt1.Enabled:=False;
dbedt2.Enabled:=False;
dbedt3.Enabled:=False;
dbedt4.Enabled:=False;
dbchk1.Enabled:=False;
end;

end.