xs_charge.pas

这是一个实用的软件

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.