accountvoucher.pas

来自「胜天财务进销存2003源代码,SQLSERVER版,目前最完整的财务进销存系统.」· PAS 代码 · 共 173 行

unit AccountVoucher;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseAccountVoucher, dxBar, dxBarExtItems, KsHooks, KsForms,
  KsSkinForms, sncCurrency, dxTLClms, dxTL, dxCntner, dxEdLib, dxEditor,
  dxExEdtr, dxDBELib, KsControls, KsLabels, KsSkinLabels, SysPublic, DB,
  ADODB, dxDBCtrl, dxDBGrid, ExtCtrls, dxDBTLCl, dxGrClms, StdCtrls,
  sncDBCurrency, Grids, DBGrids;

type
  TfrmAccountVoucher = class(TfrmBaseAccountVoucher)
    procedure gridMainSummaryButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure gridMainSubjectNameButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure bbSaveClick(Sender: TObject);
  private
    { Private declarations }
    bReturn: Boolean;
    lMode, lID, lNewID, lRead: Integer;
    function ReturnSQL(cMode: char; lMasID: Integer): string;
    procedure MainShow;
    procedure LoadGrid;
    procedure LoadData;
    procedure SaveData;
  public
    { Public declarations }
  end;

function AccountVoucherShow(lMode1, lID1, lRead1: Integer): Boolean;
//lID1是凭证ID号,lRead1为1时只读
implementation
{$R *.dfm}

function AccountVoucherShow(lMode1, lID1, lRead1: Integer): Boolean;
var
  frmAccountVoucher: TfrmAccountVoucher;
begin
  frmAccountVoucher := TfrmAccountVoucher.Create(Application);
  with frmAccountVoucher do
  begin
    lID := lID1;
    lRead := lRead1;
    lMode := lMode1;
    MainShow;
    Result := bReturn;
    Free;
  end;
end;

procedure TfrmAccountVoucher.MainShow;
begin
  BaseMainShow;
  LoadGrid;
  LoadData;
  ShowModal;
  SetColWidth(Caption, gridMain);
end;

procedure TfrmAccountVoucher.LoadGrid;
begin
  edtDate.Date := SYSStartDate;
  SetCol(Caption, gridMain, 1);
end;

function TfrmAccountVoucher.ReturnSQL(cMode: char; lMasID: Integer): string;
begin
  if cMode = 'M' then
    Result := 'Select * from AccountIndex Where ID=' + IntToStr(lMasID)
  else if cMode = 'L' then
    Result := 'Select * from AccountTable Where IndexID=' + IntToStr(lMasID);
end;

procedure TfrmAccountVoucher.LoadData;
var
  lID1: Integer;
begin
  OpenDataSet(ADOSetMaster, ReturnSQL('M', lID));
  lID1 := ADOSetMaster.FieldByName('ID').AsInteger;
  OpenDataSet(ADOSetList, ReturnSQL('L', lID1));
  if lID = 0 then
    ADOSetMaster.Insert
  else
    ADOSetMaster.Edit;
  if lID = 0 then
    edtE1.text := LoginEmployeName;
  lNewID := ADOSetMaster.FieldByName('ID').AsInteger;
  ADOSetList.Insert;
  ADOSetList.FieldByName('IndexID').AsInteger := lNewID;
end;

procedure TfrmAccountVoucher.gridMainSummaryButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
var
  sSumm: string;
begin
  inherited;
  if not (ADOSetList.State in [dsEdit, dsInsert]) then
    ADOSetList.Edit;
  sSumm := BaseSelect(BASE_NARRATE, 1, gridMain.EditingText);
  if sSumm <> '' then
  begin
    ADOSetList.FieldByName('Summary').AsString := sSumm;
    gridMain.FocusedColumn := gridMain.FocusedColumn + 1;
  end
  else
  begin
    gridMain.CancelEditor;
    gridMain.Repaint;
    gridMain.ShowEditor;
  end;
end;

procedure TfrmAccountVoucher.gridMainSubjectNameButtonClick(
  Sender: TObject; AbsoluteIndex: Integer);
var
  sAID: string;
begin
  inherited;
  sAID := BaseSelect(BASE_SUBJECT, 1, gridMain.EditingText);
  if (sAID <> '') and (sAID <> '0') then
  begin
    if not (ADOSetList.State in [dsEdit, dsInsert]) then
      ADOSetList.Edit;
    ADOSetList.FieldByName('SubjectID').AsInteger := StrToInt2(sAID);
    ADOSetList.FieldByName('SubjectName').AsString := FieldIdToName('Subject', sAID, 'Name');
    gridMain.FocusedColumn := gridMain.FocusedColumn + 1;
  end
  else
  begin
    gridMain.CancelEditor;
    gridMain.Repaint;
    gridMain.ShowEditor;
  end;
end;

procedure TfrmAccountVoucher.SaveData;
var
  lID1: Integer;
begin
  if (ADOSetMaster.State in [dsEdit, dsInsert]) then
  begin
    ADOSetMaster.FieldByName('Mode').AsInteger := lMode;
    ADOSetMaster.FieldByName('EmployeID1').AsInteger := LoginEmployeID;
  end;
  if not SaveDataSet(ADOSetMaster, false) then
    exit;
  lID1 := ADOSetMaster.FieldByName('ID').AsInteger;
  ADOSetList.First;
  while not ADOSetList.Eof do
  begin
    ADOSetList.Edit;
    ADOSetList.FieldByName('IndexID').AsInteger := lID1;
    ADOSetList.Next;
  end;
  SaveDataSet(ADOSetList, True);
end;

procedure TfrmAccountVoucher.bbSaveClick(Sender: TObject);
begin
  inherited;
  if not CheckEditEmpty(1, self, [lblBillDate.Name, lblUserCode.Name],
    [edtDate.Name, edtUserCode.Name]) then
    Exit;
  SaveData;
end;

end.