frminisetp.~pas

来自「二次开发模块 一、条形码的批量生成」· ~PAS 代码 · 共 87 行

unit FrmIniSetP;

interface

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

type
  TFrmIniSet = class(TFrmRootAdd)
    QryAcc: TADOQuery;
    dsQryAcc: TDataSource;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1cName: TdxDBGridMaskColumn;
    dxDBGrid1cValue: TdxDBGridMaskColumn;
    dxDBGrid1cCaption: TdxDBGridMaskColumn;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BtnSaveClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmIniSet: TFrmIniSet;

implementation

uses SUFunctionP, DataDmP;

{$R *.dfm}


procedure TFrmIniSet.FormShow(Sender: TObject);
Var LsStr:String;
begin
  inherited;
  SUFunction.ReadInformation('条形码文本文件路径','cValue','');
  SUFunction.ReadInformation('XML文件保存路径','cValue','');

  LsStr:=SUFunction.ReadInformation('采购入库单ID','cValue','');
  if   LsStr='' then
     SUFunction.ReadInformation('采购入库单ID','cValue','27');

  LsStr:=SUFunction.ReadInformation('产成品入库单ID','cValue','');
  if   LsStr='' then
     SUFunction.ReadInformation('产成品入库单ID','cValue','63');

  LsStr:=SUFunction.ReadInformation('其它入库单ID','cValue','');
  if   LsStr='' then
     SUFunction.ReadInformation('其它入库单ID','cValue','67');

  LsStr:=SUFunction.ReadInformation('销售出库单ID','cValue','');
  if   LsStr='' then
     SUFunction.ReadInformation('销售出库单ID','cValue','87');

  LsStr:=SUFunction.ReadInformation('材料出库单ID','cValue','');
  if   LsStr='' then
     SUFunction.ReadInformation('材料出库单ID','cValue','65');

  LsStr:=SUFunction.ReadInformation('其它出库单ID','cValue','');
  if   LsStr='' then
     SUFunction.ReadInformation('其它出库单ID','cValue','85');

  SUFunction.SetGridColor(dxDBGrid1);
  QryAcc.Open;
end;

procedure TFrmIniSet.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//  inherited;
    if (QryAcc.State = dsEdit) or (QryAcc.State = dsInsert) then
        QryAcc.Post;

end;

procedure TFrmIniSet.BtnSaveClick(Sender: TObject);
begin
  inherited;
  Close;
end;

end.