cg_otherin.pas

这是一个实用的软件

unit Cg_otherin;

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_otherin = 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;
    DBLookupComboBox2: TDBLookupComboBox;
    dxDBGrid1fcode: TdxDBGridColumn;
    dxDBGrid1Ma_worker: TdxDBGridColumn;
    dxDBGrid1Ma_whscode: TdxDBGridColumn;
    dxDBGrid1Ma_pcode: TdxDBGridColumn;
    dxDBGrid1Ma_pname: TdxDBGridColumn;
    dxDBGrid1Ma_unit: TdxDBGridColumn;
    dxDBGrid1Fdate: TdxDBGridDateColumn;
    dxDBGrid1Ma_buyprice: TdxDBGridMaskColumn;
    dxDBGrid1Ma_sum: TdxDBGridMaskColumn;
    dxDBGrid1Ma_yield: TdxDBGridDateColumn;
    dxDBGrid1Ma_enddate: TdxDBGridDateColumn;
    dxDBGrid1Ma_ph: TdxDBGridColumn;
    dxDBGrid1Ma_factory: TdxDBGridColumn;
    dxDBGrid1fmem: TdxDBGridColumn;
    dxDBGrid1ma_bzq: TdxDBGridMaskColumn;
    dxDBGrid1ma_qyt: TdxDBGridMaskColumn;
    dxDBGrid1ma_otc: TdxDBGridCheckColumn;
    dxDBGrid1fout: TdxDBGridCheckColumn;
    procedure actaddExecute(Sender: TObject);
    procedure actfindExecute(Sender: TObject);
    procedure dxDBButtonEdit1ButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure QbaseinfoMa_buypriceValidate(Sender: TField);
    procedure Qbaseinfoma_qytValidate(Sender: TField);
    procedure acteditExecute(Sender: TObject);
    procedure actsaveExecute(Sender: TObject);
    procedure actrepriExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fcg_otherin: Tfcg_otherin;

implementation

uses Global, pubdata, other_find1, dataform, cg_profind3;

{$R *.dfm}

procedure Tfcg_otherin.actaddExecute(Sender: TObject);
begin
  inherited;
    //添加记录
    DBLookupComboBox2.Enabled:=True;
tmpname:='cg_master';
Qbaseinfo.FieldByName('fcode').Value:=getcode('RK');
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_otherin.actfindExecute(Sender: TObject);
begin
  inherited;
fother_find:=Tfother_find.Create(Self);
fother_find.ShowModal;
end;

procedure Tfcg_otherin.dxDBButtonEdit1ButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
  inherited;
fcg_profind3:=Tfcg_profind3.Create(Self);
fcg_profind3.ShowModal;
end;

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

end;

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

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

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

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

end.