sys900_02.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

unit Sys900_02;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid,
  DB, ADODB;

type
  TSys900_02Form = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    bbtnOk: TBitBtn;
    bbtnExit: TBitBtn;
    dxDBGrid1: TdxDBGrid;
    adsSys900: TADODataSet;
    dsSys900: TDataSource;
    adsSys900Code: TStringField;
    adsSys900Name: TStringField;
    dxDBGrid1Code: TdxDBGridMaskColumn;
    dxDBGrid1Name: TdxDBGridMaskColumn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bbtnOkClick(Sender: TObject);
    procedure bbtnExitClick(Sender: TObject);
    procedure dxDBGrid1DblClick(Sender: TObject);
  private
    procedure SetInterface;
    procedure InsertData(ACode,AName:string);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Sys900_02Form: TSys900_02Form;

implementation

uses CommFun;

{$R *.dfm}

procedure TSys900_02Form.SetInterface;
begin
  Font.Name:=AFontName;
end;

procedure TSys900_02Form.InsertData(ACode,AName:string);
begin
  adsSys900.Append;
  adsSys900Code.Value:=ACode;
  adsSys900Name.Value:=AName;
  adsSys900.Post;
end;

procedure TSys900_02Form.FormCreate(Sender: TObject);
begin
  SetInterface;
  adsSys900.FieldDefs.Clear;
  adsSys900.FieldDefs.Add('Code',ftString,20);
  adsSys900.FieldDefs.Add('Name',ftString,20);
  adsSys900.CreateDataSet;
  InsertData('[YYYY]','年（四位数）');
  InsertData('[YY]','年（二位数）');
  InsertData('[MM]','月');
  InsertData('[DD]','日');
  InsertData('[LINK]','连接符');
  InsertData('[PRE]','前缀');
  InsertData('[POST]','后缀');
  InsertData('[NUM]','流水号');
  adsSys900.First;
end;

procedure TSys900_02Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  adsSys900.Close;
end;

procedure TSys900_02Form.bbtnOkClick(Sender: TObject);
begin
//Ok
  ModalResult:=1;
end;

procedure TSys900_02Form.bbtnExitClick(Sender: TObject);
begin
//exit
  Close;
end;

procedure TSys900_02Form.dxDBGrid1DblClick(Sender: TObject);
begin
  Edit1.Text:=Edit1.Text+adsSys900Code.Value;
end;

end.