base1infoedit.pas

胜天财务进销存2003源代码,SQLSERVER版,目前最完整的财务进销存系统.

unit Base1InfoEdit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  EditForm, StdCtrls, Buttons, dxCntner, dxEditor, dxEdLib, dxDBELib,
  dxExEdtr, DBData, dxDBTL, db, Variants, KsControls, KsButtons,
  KsSkinButtons, KsHooks, KsForms, KsSkinForms, KsLabels, KsSkinLabels,
  ADODB;

type
  TfrmBase1InfoEdit = class(TfrmEditForm)
    bbOk: TSeSkinButton;
    bbNo: TSeSkinButton;
    lblName1: TSeSkinLabel;
    edt1: TdxDBEdit;
    lblName2: TSeSkinLabel;
    edt2: TdxDBEdit;
    procedure bbNoClick(Sender: TObject);
    procedure bbOkClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
    bReturn: Boolean;
    treeMain: TdxDBTreeList;
    sEditCol: string;
    lMode: Integer;

    procedure MainShow;
    procedure LoadData;
  public
    { Public declarations }
  end;

function Base1InfoEditShow(tree1Main: TdxDBTreeList; s1EditCol, s1Caption: string;
  l1Mode: Integer): Boolean;
implementation

uses BaseInfo, SysPublic;

{$R *.DFM}

function Base1InfoEditShow(tree1Main: TdxDBTreeList; s1EditCol, s1Caption: string;
  l1Mode: Integer): Boolean;
var
  frmBase1InfoEdit: TfrmBase1InfoEdit;
begin
  frmBase1InfoEdit := TfrmBase1InfoEdit.Create(Application);
  with frmBase1InfoEdit do
  begin
    treeMain := tree1Main;
    sEditCol := s1EditCol;
    Caption := s1Caption + '编辑';
    lMode := l1Mode;
    MainShow;
    Result := bReturn;
    Free;
  end;
end;

procedure TfrmBase1InfoEdit.MainShow;
begin
  DataSet:=treeMain.DataSource.DataSet;
  LoadData;
  ShowModal;
end;

procedure TfrmBase1InfoEdit.LoadData;
var
  i: Integer;
begin
  for i := 1 to GetCommaStrCount(sEditCol) do
  begin
    case i of
      1: edt1.DataField := GetCommaStr(sEditCol, i);
      2: edt2.DataField := GetCommaStr(sEditCol, i);
    end;
  end;
  if edt1.DataField <> '' then
  begin
    lblName1.Caption := GridFieldToTitle(treeMain, edt1.DataField);
    edt1.Visible := True;
    lblName1.Visible := True;
  end;
  if edt2.DataField <> '' then
  begin
    lblName2.Caption := GridFieldToTitle(treeMain, edt2.DataField);
    edt2.Visible := True;
    lblName2.Visible := True;
  end;
end;

procedure TfrmBase1InfoEdit.bbNoClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TfrmBase1InfoEdit.bbOkClick(Sender: TObject);
begin
  inherited;
  bReturn := true;
  Close;
end;

procedure TfrmBase1InfoEdit.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  case KEY of
    VK_ESCAPE: bbNoClick(nil);
    VK_RETURN: bbOkClick(nil);
  end;
end;

end.