base1infoedit.pas

中小企业管理系统------ ERP系统原代码

unit Base1InfoEdit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  EditForm, StdCtrls, Buttons, dxCntner, dxEditor, dxEdLib, dxDBELib,
  dxExEdtr, DBData, dxDBTL, db, Variants, KsSkinButtons, KsSkinForms,
  KsSkinLabels, ADODB, se_controls, KsSkinSpeedButtons;

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.



//此源码由程序太平洋收集整理发布,任何人都可自由转载,但需保留本站信息
//╭⌒╮┅~ ¤　欢迎光临程序太平洋╭⌒╮
//╭⌒╭⌒╮╭⌒╮～╭⌒╮  ︶  ,︶︶
//,︶︶︶︶,''︶~~ ,''~︶︶　 ,''
//╔　╱◥███◣═╬╬╬╬╬╬╬╬╬╗
//╬ ︱田︱田 田 ︱　　　　　　　　　 ╬
//╬　　　　　　　http://www.5ivb.net ╬
//╬　 ╭○╮●　                   　╬
//╬　　/■\/■\　　                  ╬
//╬　　 <|　||　   有希望,就有成功！ ╬
//╬　　　　　　　　　　　　　　　　　╬
//╚╬╬╬╬╬╬╬╬╬╬╗  ╔╬╬╬╬╝
//
//说明：
//专业提供VB、．NET、Delphi、ASP、PB源码下载
//包括:程序源码,控件,商业源码,系统方案，开发工具，书籍教程，技术文档