cg_inwhs.pas

这是一个实用的软件

unit cg_inwhs;

interface

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

type
  Tfcg_inwhs = class(Tfbscg_master)
    dxDBGrid1Ma_code: TdxDBGridColumn;
    dxDBGrid1Ma_worker: TdxDBGridColumn;
    dxDBGrid1Ma_whscode: TdxDBGridColumn;
    dxDBGrid1Ma_pcode: TdxDBGridColumn;
    dxDBGrid1Ma_pname: TdxDBGridColumn;
    dxDBGrid1Fdate: TdxDBGridDateColumn;
    dxDBGrid1Ma_unit: TdxDBGridColumn;
    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;
    dxDBGrid1Ma_out: TdxDBGridCheckColumn;
    Qbaseinfoid: TAutoIncField;
    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;
    Qbaseinfofmem: TWideStringField;
    QbaseinfofSort: TWideStringField;
    Qbaseinfoma_bzq: TIntegerField;
    Qbaseinfoma_qyt: TFloatField;
    Qbaseinfoma_otc: TIntegerField;
    Qbaseinfofout: TIntegerField;
    Qbaseinfofcode: TWideStringField;
    ADOQuery1: TADOQuery;
    ADOQuery1id: TAutoIncField;
    ADOQuery1Phy_code: TWideStringField;
    ADOQuery1Phy_name: TWideStringField;
    ADOQuery1Phy_type: TWideStringField;
    ADOQuery1Phy_marking: TWideStringField;
    ADOQuery1Phy_abc: TWideStringField;
    ADOQuery1Phy_unit: TWideStringField;
    ADOQuery1Phy_aveprice: TFloatField;
    ADOQuery1Phy_retail1: TFloatField;
    ADOQuery1Phy_unit1: TWideStringField;
    ADOQuery1Phy_unit1rate: TFloatField;
    ADOQuery1Phy_retail2: TFloatField;
    ADOQuery1Phy_unit2: TWideStringField;
    ADOQuery1Phy_unit2rate: TFloatField;
    ADOQuery1Phy_retail3: TFloatField;
    ADOQuery1Phy_unit3: TWideStringField;
    ADOQuery1Phy_unit3rate: TFloatField;
    ADOQuery1Phy_retail4: TFloatField;
    ADOQuery1Phy_up: TFloatField;
    ADOQuery1Phy_down: TFloatField;
    ADOQuery1Phy_spec: TWideStringField;
    ADOQuery1Phy_xz: TWideStringField;
    ADOQuery1Phy_fit: TWideStringField;
    ADOQuery1Phy_reaction: TWideStringField;
    ADOQuery1Phy_enjoin: TWideStringField;
    ADOQuery1Phy_attention: TWideStringField;
    ADOQuery1Phy_savedate: TFloatField;
    ADOQuery1Phy_otc: TIntegerField;
    ADOQuery1Phy_out: TIntegerField;
    ADOQuery1fmem: TWideStringField;
    ADOQuery1fSort: TWideStringField;
    ADOQuery1phy_used: TWideStringField;
    ADOQuery1phy_factory: TWideStringField;
    DBLookupComboBox2: TDBLookupComboBox;
    procedure actaddExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure actfindExecute(Sender: TObject);
    procedure dxDBButtonEdit1ButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure Qbaseinfoma_qytValidate(Sender: TField);
    procedure QbaseinfoMa_yieldValidate(Sender: TField);
    procedure QbaseinfoMa_buypriceValidate(Sender: TField);
    procedure acteditExecute(Sender: TObject);
    procedure actsaveExecute(Sender: TObject);
    procedure actrepriExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fcg_inwhs: Tfcg_inwhs;

implementation

uses Global, selectproin, pubdata, dataform, cg_profind1, KC_table;

{$R *.dfm}

procedure Tfcg_inwhs.actaddExecute(Sender: TObject);
begin
  inherited;
  //添加记录
DBLookupComboBox2.Enabled:=True;
dbchk1.Enabled:=True;
tmpname:='cg_master';
Qbaseinfo.FieldByName('fcode').Value:=getcode('CG');
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_inwhs.FormCreate(Sender: TObject);
begin
  inherited;
lbl20.Visible:=False;
end;

procedure Tfcg_inwhs.actfindExecute(Sender: TObject);
begin
  inherited;
fmselectproin:=Tfmselectproin.create(Self);
fmselectproin.showmodal;
end;

procedure Tfcg_inwhs.dxDBButtonEdit1ButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
  inherited;
  //选择商品
if  Qbaseinfo.State in [dsedit,dsinsert] then
    begin
    fcg_profind1:=Tfcg_profind1.Create(Self);
    fcg_profind1.ShowModal;
    end
    else
    MessageBox(0, '尚未添加记录！', '提示', MB_OK + MB_ICONQUESTION + 
      MB_TOPMOST);      
end;

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

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

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

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

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

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

end.