xs_charge.pas

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

unit Xs_charge;

interface

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

type
  TfXs_charge = class(Tfbaseformtype)
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Qbaseinfoid: TAutoIncField;
    QbaseinfoXs_name: TWideStringField;
    QbaseinfoXs_money: TFloatField;
    QbaseinfoDe_date: TDateTimeField;
    QbaseinfoOtc_worker: TWideStringField;
    Qbaseinfofmem: TWideStringField;
    QbaseinfoXs_checked: TIntegerField;
    QbaseinfofSort: TWideStringField;
    Label4: TLabel;
    lbl2: TLabel;
    dxDBDateEdit1: TdxDBDateEdit;
    dxDBGridXs_code: TdxDBGridColumn;
    dxDBGridXs_name: TdxDBGridColumn;
    dxDBGridXs_money: TdxDBGridMaskColumn;
    dxDBGridDe_date: TdxDBGridDateColumn;
    dxDBGridOtc_worker: TdxDBGridColumn;
    dxDBGridfmem: TdxDBGridColumn;
    Qbaseinfofcode: TWideStringField;
    DBLookupComboBox1: TDBLookupComboBox;
    procedure actaddExecute(Sender: TObject);
    procedure actsaveExecute(Sender: TObject);
    procedure actprericeExecute(Sender: TObject);
    procedure DBEdit2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fXs_charge: TfXs_charge;

implementation

uses Global, dataform, pubdata, fy;

{$R *.dfm}

procedure TfXs_charge.actaddExecute(Sender: TObject);
begin
  inherited;
tmpname:='Xs_charge';
Qbaseinfo.FieldByName('fcode').Value:=getcode('FY');
Qbaseinfo.FieldByName('Otc_worker').Value:=fData.Sqltmp['User_code'];
Qbaseinfo.FieldByName('De_date').Value:=FormatDateTime('YYYY-MM-DD',Date());
DBEdit2.SetFocus;
SpeedButton5.Enabled:=False;
SpeedButton3.Enabled:=False;
SpeedButton8.Enabled:=True;
end;

procedure TfXs_charge.actsaveExecute(Sender: TObject);
begin
  inherited;
SpeedButton5.Enabled:=True;
SpeedButton3.Enabled:=True;
SpeedButton8.Enabled:=False;
end;

procedure TfXs_charge.actprericeExecute(Sender: TObject);
begin
  inherited;
if Qbaseinfo.State in [dsedit,dsinsert] then
   SpeedButton8.Enabled:=False;

end;

procedure TfXs_charge.DBEdit2MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  inherited;
if Button=mbRight then
   begin
    ffy:=Tffy.Create(Self);
    ffy.ShowModal;
   end;
end;

end.