gl_enter_cashway_d.pas

一个MRPII系统源代码版本

unit Gl_Enter_CashWay_D;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Detail, Db, AdODB, ExtCtrls, StdCtrls, ExtEdit, Mask, linkedit;

Type
  TFrm_Gl_Enter_CashWay_D = Class(TFrm_Base_Detail)
    Label8: TLabel;
    Label2: TLabel;
    edt_Credenceno: TEdit;
    Label4: TLabel;
    edt_DocketName: TEdit;
    Label5: TLabel;
    edt_kmCode: TEdit;
    Label6: TLabel;
    edt_kmName: TEdit;
    Label9: TLabel;
    edt_Debit: TEdit;
    Label10: TLabel;
    edt_Credit: TEdit;
    Label11: TLabel;
    cmb_CredenceType: TComboBox;
    MEdt_CreateDate: TMaskEdit;
    Label3: TLabel;
    cmb_CashWay: TLinkEdit;
    edt_CashWay: TEdit;
    procedure cmb_CashWayButtonClick(Sender: TObject);
    procedure cmb_CashWayChange(Sender: TObject);
    procedure cmb_CashWayExit(Sender: TObject);
    procedure cmb_CashWayKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
  private
    { Private declarations }
  public
    procedure InitControls; Override;
    procedure SaveData;Override;
    procedure SetStatus(CurrentStatus:String;var EnableControls:String); Override;
    { Public declarations }
  end;

var
  Frm_Gl_Enter_CashWay_D: TFrm_Gl_Enter_CashWay_D;

implementation
uses Sys_Global;
{$R *.DFM}

{ TFrm_Ar_Enter_Gathering_D }

procedure TFrm_Gl_Enter_CashWay_D.InitControls;
var i:integer;
begin
  SetFocus_Control:=cmb_CashWay;
  inherited;
  with AdoQry_Maintain do
    begin
      medt_Createdate.Text:=AdoQry_Maintain.fieldbyname('Credencedate').asstring;
      edt_Credenceno.Text:=AdoQry_Maintain.fieldbyname('Credenceno').asstring;
      cmb_CredenceType.ItemIndex:=AdoQry_Maintain.fieldbyname('CredenceType').asinteger-1;
      edt_DocketName.Text:=AdoQry_Maintain.fieldbyname('docketName').asstring;
      edt_kmCode.Text:=AdoQry_Maintain.fieldbyname('kmCode').asstring;
      edt_kmName.Text:=AdoQry_Maintain.fieldbyname('kmName').asstring;
      edt_Debit.Text:=AdoQry_Maintain.fieldbyname('debitAmount').asstring;
      edt_Credit.Text:=AdoQry_Maintain.fieldbyname('creditAmount').asstring;
      cmb_CashWay.Text:=AdoQry_Maintain.fieldbyname('CashWay').asstring;
      edt_CashWay.Text:=AdoQry_Maintain.fieldbyname('projectName').asstring;
    end;
end;

procedure TFrm_Gl_Enter_CashWay_D.SaveData;
var sqltext:string;
    AdoQry:TAdoQuery;
begin
  inherited;
//  CheckInfo;//检测信息
  AdoQry:=TAdoQuery.Create(nil);
  AdoQry.Connection:=dbconnect;
  try
    dbconnect.beginTrans;
    sqltext:='update Gl_Credenceline'
             +' set CashWay='+QuotedStr(Trim(cmb_CashWay.text))
             +'where Credenceid='+AdoQry_Maintain.fieldbyname('Credenceid').asstring
             +'   and Gl_Credencelineno='+AdoQry_Maintain.fieldbyname('Gl_Credencelineno').asstring;
    saveCredenceLineHistory(dbconnect,AdoQry_Maintain.fieldbyname('Credenceid').asinteger,AdoQry_Maintain.fieldbyname('Gl_Credencelineno').asinteger,userCode,1);
    Executesql(AdoQry_tmp,sqltext,1);
    if Assigned(AdoQry) then AdoQry.Free;
    dbconnect.CommitTrans;
    with AdoQry_Maintain do
      begin
        fieldbyname('CashWay').asstring:=cmb_CashWay.text;
        fieldbyname('projectName').asstring:=edt_CashWay.text;
        post;
      end;
  except
    if dbconnect.InTransaction then
      dbconnect.RollBackTrans;
    if Assigned(AdoQry) then AdoQry.Free;
    abort;
  end;
end;

procedure TFrm_Gl_Enter_CashWay_D.SetStatus(CurrentStatus: String;
  var EnableControls: String);
begin
  inherited;

end;

procedure TFrm_Gl_Enter_CashWay_D.cmb_CashWayButtonClick(Sender: TObject);
begin
  inherited;
  CommOnHint(Sender,AdoQry_Tmp,'projectName','项目名称','projectCode','项目编号',' Gl_CashReport ', ' (plineno<>'''' or plineno is not null) and issum=0 ');
end;

procedure TFrm_Gl_Enter_CashWay_D.cmb_CashWayChange(Sender: TObject);
begin
  inherited;
  btn_ok.Enabled:=True;
end;

procedure TFrm_Gl_Enter_CashWay_D.cmb_CashWayExit(Sender: TObject);
begin
  inherited;
  if activecontrol.Name='btn_Cancel' then exit;
  if Trim(cmb_CashWay.Text)='' then exit;
  Executesql(AdoQry_Tmp,'select * from Gl_CashReport where (plineno<>'''' or plineno is not null) and issum=0 and projectCode='+quotedstr(Trim(Tedit(sender).text)),0)  ;
  if AdoQry_Tmp.RecordCount=0 then
    begin
      DispInfo('现金流向代码错误！',3);
      Tedit(sender).setfocus;
      abort;
    end;
  Edt_CashWay.Text:=AdoQry_Tmp.fieldbyname('projectName').asstring;

end;

procedure TFrm_Gl_Enter_CashWay_D.cmb_CashWayKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  if key=120 then
    CommOnHint(Sender,AdoQry_Tmp,'projectName','项目名称','projectCode','项目编号',' Gl_CashReport ', ' (plineno<>'''' or plineno is not null) and issum=0 ');
end;

end.