csh600_01.pas.svn-base

开源的网站整站程序,功能强大带采集系统.

unit Csh600_01;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BAS200_10, dxExEdtr, ActnList, DB, ADODB, Menus, dxCntner, dxTL,
  dxDBCtrl, dxDBGrid, ExtCtrls, ComCtrls, ToolWin, dxDBTLCl, dxGrClms;

type
  TCsh600_01Form = class(TBas200_10Form)
    ADOQuery1C600_001: TSmallintField;
    ADOQuery1C600_002: TIntegerField;
    ADOQuery1C600_003: TIntegerField;
    ADOQuery1O150_002: TWideStringField;
    ADOQuery1O150_003: TWideStringField;
    ADOQuery1G100_002: TWideStringField;
    ADOQuery1G100_003: TWideStringField;
    ADOQuery1C600_004: TSmallintField;
    ADOQuery1C600_005: TDateTimeField;
    ADOQuery1C600_006: TFloatField;
    ADOQuery1C600_007: TMemoField;
    dxDBGrid1C600_001: TdxDBGridMaskColumn;
    dxDBGrid1O150_002: TdxDBGridColumn;
    dxDBGrid1O150_003: TdxDBGridColumn;
    dxDBGrid1G100_002: TdxDBGridColumn;
    dxDBGrid1G100_003: TdxDBGridColumn;
    dxDBGrid1C600_004: TdxDBGridMaskColumn;
    dxDBGrid1C600_005: TdxDBGridDateColumn;
    dxDBGrid1C600_006: TdxDBGridMaskColumn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ADOQuery1C600_001GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure ADOQuery1C600_004GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
  private
    AType:array[0..1] of string;
    AInOut:array[0..1] of string;
    { Private declarations }
  public
    procedure SetInterface; override;
    procedure InsertEvent; override;
    procedure UpdateEvent; override;
    procedure DeleteEvent; override;
    procedure BrowseEvent; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Csh600_01Form: TCsh600_01Form;

implementation

uses CommFun, CshComm, Csh600_02;

{$R *.dfm}

procedure TCsh600_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('CSH60001001');  //债权债务设置
  ADOQuery1C600_001.DisplayLabel:=GetDBString('CSH60001002');  //对象类型
  ADOQuery1O150_002.DisplayLabel:=GetDBString('CSH60001003');  //对象编号
  ADOQuery1O150_003.DisplayLabel:=GetDBString('CSH60001004');  //对象名称
  ADOQuery1G100_002.DisplayLabel:=GetDBString('CSH60001005');  //币别编号
  ADOQuery1G100_003.DisplayLabel:=GetDBString('CSH60001006');  //币别名称
  ADOQuery1C600_004.DisplayLabel:=GetDBString('CSH60001007');  //债权债务
  ADOQuery1C600_005.DisplayLabel:=GetDBString('CSH60001008');  //建立日期
  ADOQuery1C600_006.DisplayLabel:=GetDBString('CSH60001009');  //期初金额

  //对象类型(0=客户，1=员工)
  AType[0]:=GetDBString('CSH60001010');  //客户
  AType[1]:=GetDBString('CSH60001011');  //员工
  //债权债务(0=债权，1=债务)
  AInOut[0]:=GetDBString('CSH60001012');  //债权
  AInOut[1]:=GetDBString('CSH60001013');  //债务
end;

procedure TCsh600_01Form.FormCreate(Sender: TObject);
begin
  inherited;
  ADOQuery1.Open;
end;

procedure TCsh600_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  ADOQuery1.Close;
end;

procedure TCsh600_01Form.BrowseEvent;
begin
  inherited;
  Csh600_02Form:=TCsh600_02Form.Create(Application);
  Csh600_02Form.OpenData(ADOQuery1C600_001.Value,ADOQuery1C600_002.Value,ADOQuery1C600_003.Value);
  Csh600_02Form.ShowModal;
end;

procedure TCsh600_01Form.DeleteEvent;
var
  AOldTypeNo,AOldCustNo,AOldCurrNo:Integer;
  AOldDate:TDateTime;
  AOldAmount:Double;
begin
  inherited;
//删除
  inherited;
  //更新债权债务帐本表 CSH610
  AOldTypeNo:=ADOQuery1.FieldByName('C600_001').Value;  //对象类型
  AOldCustNo:=ADOQuery1.FieldByName('C600_002').AsInteger;  //客户编号
  AOldCurrNo:=ADOQuery1.FieldByName('C600_003').AsInteger;
  AOldDate:=ADOQuery1.FieldByName('C600_005').Value;
  AOldAmount:=ADOQuery1.FieldByName('C600_006').Value;
  UpdateCSH610(AOldTypeNo,AOldCustNo,AOldCurrNo,0,0,0,0,AOldDate,AOldAmount,'','','DEL');
  DeleteTableRecord(ADOQuery1,'CSH600','C600_001='+ADOQuery1C600_001.AsString+' and C600_002='+ADOQuery1C600_002.AsString+' and C600_003='+ADOQuery1C600_003.AsString);
end;

procedure TCsh600_01Form.InsertEvent;
begin
  inherited;
//新增
  Csh600_02Form:=TCsh600_02Form.Create(Application);
  Csh600_02Form.OpenData(0,0,0);
  Csh600_02Form.ShowModal;
end;

procedure TCsh600_01Form.ReportGetValue(const ParName: String;
  var ParValue: Variant);
begin
  inherited;

end;

procedure TCsh600_01Form.UpdateEvent;
begin
  inherited;
//修改
  Csh600_02Form:=TCsh600_02Form.Create(Application);
  Csh600_02Form.OpenData(ADOQuery1C600_001.Value,ADOQuery1C600_002.Value,ADOQuery1C600_003.Value);
  Csh600_02Form.ShowModal;
end;

procedure TCsh600_01Form.ADOQuery1C600_001GetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  if ADOQuery1.IsEmpty then Exit;
  Text:=AType[Sender.AsInteger];
end;

procedure TCsh600_01Form.ADOQuery1C600_004GetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  if ADOQuery1.IsEmpty then Exit;
  Text:=AInOut[Sender.AsInteger];
end;

initialization
  RegisterClass(TCsh600_01Form);

finalization
  UnRegisterClass(TCsh600_01Form);

end.