cg_bs.pas

这是一个实用的软件

unit Cg_bs;

interface

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

type
  TfCg_bs = class(Tfbscg_master)
    Qbaseinfoid: TAutoIncField;
    Qbaseinfofcode: TWideStringField;
    QbaseinfoMa_worker: TWideStringField;
    QbaseinfoMa_whscode: TWideStringField;
    QbaseinfoMa_pcode: TWideStringField;
    QbaseinfoMa_pname: TWideStringField;
    QbaseinfoFdate: TDateTimeField;
    QbaseinfoMa_unit: TWideStringField;
    QbaseinfoMa_unit2: TFloatField;
    QbaseinfoMa_unit1: TFloatField;
    QbaseinfoMa_ss: TFloatField;
    QbaseinfoMa_buyprice: TFloatField;
    QbaseinfoMa_sum: TFloatField;
    QbaseinfoMa_yield: TDateTimeField;
    QbaseinfoMa_enddate: TDateTimeField;
    QbaseinfoMa_ph: TWideStringField;
    QbaseinfoMa_factory: TWideStringField;
    Qbaseinfofout: TIntegerField;
    Qbaseinfofmem: TWideStringField;
    QbaseinfofSort: TWideStringField;
    Qbaseinfoma_bzq: TIntegerField;
    Qbaseinfoma_qyt: TFloatField;
    Qbaseinfoma_otc: TIntegerField;
    Qbaseinfoma_othername: TWideStringField;
    dxDBGrid1fcode: TdxDBGridColumn;
    dxDBGrid1Ma_worker: TdxDBGridColumn;
    dxDBGrid1Ma_whscode: TdxDBGridColumn;
    dxDBGrid1Fdate: TdxDBGridDateColumn;
    dxDBGrid1Ma_unit: TdxDBGridColumn;
    dxDBGrid1Ma_unit2: TdxDBGridMaskColumn;
    dxDBGrid1Ma_unit1: TdxDBGridMaskColumn;
    dxDBGrid1Ma_ss: TdxDBGridMaskColumn;
    dxDBGrid1Ma_buyprice: TdxDBGridMaskColumn;
    dxDBGrid1Ma_sum: TdxDBGridMaskColumn;
    dxDBGrid1Ma_yield: TdxDBGridDateColumn;
    dxDBGrid1Ma_enddate: TdxDBGridDateColumn;
    dxDBGrid1Ma_ph: TdxDBGridColumn;
    dxDBGrid1Ma_factory: TdxDBGridColumn;
    dxDBGrid1ma_bzq: TdxDBGridMaskColumn;
    dxDBGrid1ma_qyt: TdxDBGridMaskColumn;
    dxDBGrid1ma_otc: TdxDBGridCheckColumn;
    dxDBGrid1fout: TdxDBGridCheckColumn;
    DBLookupComboBox2: TDBLookupComboBox;
    procedure actaddExecute(Sender: TObject);
    procedure actfindExecute(Sender: TObject);
    procedure acteditExecute(Sender: TObject);
    procedure actsaveExecute(Sender: TObject);
    procedure actrepriExecute(Sender: TObject);
    procedure dxDBButtonEdit1ButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure QbaseinfoMa_buypriceValidate(Sender: TField);
    procedure Qbaseinfoma_qytValidate(Sender: TField);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fCg_bs: TfCg_bs;

implementation

uses Global, baseform, dataform, pubdata, bs_find2, cg_profind5;

{$R *.dfm}

procedure TfCg_bs.actaddExecute(Sender: TObject);
begin
  inherited;
DBLookupComboBox2.Enabled:=True;
dbchk1.Enabled:=True;
tmpname:='cg_master';
Qbaseinfo.FieldByName('fcode').Value:=getcode('BS');
Qbaseinfo.FieldByName('Ma_worker').Value:=fData.Sqltmp['User_code'];
Qbaseinfo.FieldByName('Fdate').Value:=FormatDateTime('YYYY-MM-DD',Date());
Qbaseinfo.FieldByName('Ma_whscode').Value:=fpubdata.qrydisp_whs['Whs_code'];
Qbaseinfo.FieldByName('ma_otc').Value:=0;
Qbaseinfo.FieldByName('Ma_yield').Value:=FormatDateTime('YYYY-MM-DD',Date());
Qbaseinfo.FieldByName('Ma_enddate').Value:=Date+60;
dxDBButtonEdit1.SetFocus;
end;

procedure TfCg_bs.actfindExecute(Sender: TObject);
begin
  inherited;
fbs_find2:=Tfbs_find2.Create(Self);
fbs_find2.ShowModal;
end;

procedure TfCg_bs.acteditExecute(Sender: TObject);
begin
  inherited;
DBLookupComboBox2.Enabled:=True;
dbchk1.Enabled:=True;
end;

procedure TfCg_bs.actsaveExecute(Sender: TObject);
begin
  inherited;
DBLookupComboBox2.Enabled:=False;
dbchk1.Enabled:=False;
end;

procedure TfCg_bs.actrepriExecute(Sender: TObject);
begin
  inherited;
DBLookupComboBox2.Enabled:=False;
dbchk1.Enabled:=False;
end;

procedure TfCg_bs.dxDBButtonEdit1ButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
  inherited;
fcg_profind5:=Tfcg_profind5.Create(Self);
fcg_profind5.ShowModal;
end;

procedure TfCg_bs.QbaseinfoMa_buypriceValidate(Sender: TField);
begin
  inherited;
Qbaseinfo.FieldByName('Ma_sum').Value:=Qbaseinfo['Ma_buyprice']*Qbaseinfo['ma_qyt'];

end;

procedure TfCg_bs.Qbaseinfoma_qytValidate(Sender: TField);
begin
  inherited;
Qbaseinfo.FieldByName('Ma_sum').Value:=Qbaseinfo['Ma_buyprice']*Qbaseinfo['ma_qyt'];

end;

end.