bs_machine.pas

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

unit Bs_machine;

interface

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

type
  TfBs_machine = class(Tfbaseformtree)
    pgc1: TPageControl;
    ts1: TTabSheet;
    ts2: TTabSheet;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl6: TLabel;
    lbl7: TLabel;
    lbl8: TLabel;
    lbl9: TLabel;
    lbl11: TLabel;
    lbl12: TLabel;
    lbl13: TLabel;
    lbl14: TLabel;
    lbl16: TLabel;
    lbl18: TLabel;
    lbl19: TLabel;
    lbl20: TLabel;
    lbl21: TLabel;
    lbl26: TLabel;
    dbedt1: TDBEdit;
    dbedt2: TDBEdit;
    dbedt4: TDBEdit;
    dbedt7: TDBEdit;
    dbedt9: TDBEdit;
    dbedt10: TDBEdit;
    dbedt12: TDBEdit;
    dbedt13: TDBEdit;
    dbedt17: TDBEdit;
    dbedt18: TDBEdit;
    dbedt19: TDBEdit;
    dbmmo1: TDBMemo;
    dbchk2: TDBCheckBox;
    dbmmo6: TDBMemo;
    lbl27: TLabel;
    dxDBGrid1: TdxDBGrid;
    dblkcbb1: TDBLookupComboBox;
    lbl10: TLabel;
    DBMemo2: TDBMemo;
    lbl15: TLabel;
    dbedt3: TDBEdit;
    QbaseinfoFcode: TWideStringField;
    QbaseinfoChine_code: TWideStringField;
    QbaseinfoChine_name: TWideStringField;
    QbaseinfoChine_date: TDateTimeField;
    QbaseinfoChine_mean: TWideStringField;
    QbaseinfoChine_ph: TWideStringField;
    QbaseinfoChine_marking: TWideStringField;
    QbaseinfoChine_unit: TWideStringField;
    QbaseinfoChine_aveprice: TFloatField;
    QbaseinfoChine_retail1: TFloatField;
    QbaseinfoChine_unit1: TFloatField;
    QbaseinfoChine_unit1rate: TFloatField;
    QbaseinfoChine_retail2: TFloatField;
    QbaseinfoChine_unit2: TFloatField;
    QbaseinfoChine_unit2rate: TFloatField;
    QbaseinfoChine_retail3: TFloatField;
    QbaseinfoChine_up: TIntegerField;
    QbaseinfoChine_down: TIntegerField;
    QbaseinfoChine_spec: TWideStringField;
    QbaseinfoChine_factory: TWideStringField;
    QbaseinfoChine_out: TIntegerField;
    Qbaseinfofmem: TWideStringField;
    Qbaseinfosort: TWideStringField;
    QbaseinfoChine_type: TWideStringField;
    Qbaseinfochine_modal: TWideStringField;
    dxDBGrid1Chine_code: TdxDBGridColumn;
    dxDBGrid1Chine_name: TdxDBGridColumn;
    dxDBGrid1Chine_date: TdxDBGridDateColumn;
    dxDBGrid1Chine_mean: TdxDBGridColumn;
    dxDBGrid1Chine_ph: TdxDBGridColumn;
    dxDBGrid1Chine_marking: TdxDBGridColumn;
    dxDBGrid1Chine_unit: TdxDBGridColumn;
    dxDBGrid1Chine_aveprice: TdxDBGridMaskColumn;
    dxDBGrid1Chine_retail1: TdxDBGridMaskColumn;
    dxDBGrid1Chine_unit1: TdxDBGridMaskColumn;
    dxDBGrid1Chine_unit1rate: TdxDBGridMaskColumn;
    dxDBGrid1Chine_retail2: TdxDBGridMaskColumn;
    dxDBGrid1Chine_unit2: TdxDBGridMaskColumn;
    dxDBGrid1Chine_unit2rate: TdxDBGridMaskColumn;
    dxDBGrid1Chine_retail3: TdxDBGridMaskColumn;
    dxDBGrid1Chine_up: TdxDBGridMaskColumn;
    dxDBGrid1Chine_down: TdxDBGridMaskColumn;
    dxDBGrid1Chine_spec: TdxDBGridColumn;
    dxDBGrid1Chine_factory: TdxDBGridColumn;
    dxDBGrid1Chine_type: TdxDBGridColumn;
    dxDBGrid1chine_modal: TdxDBGridColumn;
    dxDBGrid1Chine_out: TdxDBGridCheckColumn;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox3: TDBLookupComboBox;
    procedure actaddExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fBs_machine: TfBs_machine;

implementation

uses pubdata;

{$R *.dfm}

 procedure TfBs_machine.actaddExecute(Sender: TObject);
begin
  //inherited;
Qbaseinfo.Edit;
Qbaseinfo.Append;
Qbaseinfo.FieldByName('Chine_out').Value:=0;
Qbaseinfo.FieldByName('Chine_aveprice').Value:=1;
Qbaseinfo.FieldByName('Chine_unit1rate').Value:=1;
Qbaseinfo.FieldByName('Chine_unit2rate').Value:=1;
Qbaseinfo.FieldByName('Chine_retail1').Value:=0;
Qbaseinfo.FieldByName('Chine_retail2').Value:=0;
Qbaseinfo.FieldByName('Chine_retail3').Value:=0;
SpeedButton7.Enabled:=False;
SpeedButton4.Enabled:=False;
SpeedButton10.Enabled:=True;
DBEdit1.SetFocus;
end;

end.