sys900_01.pas.svn-base

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

unit Sys900_01;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, dxCntner, dxEditor, dxExEdtr, dxEdLib,
  Buttons, DB, ADODB, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxDBGrid, ExtCtrls,
  DBCtrls, FR_Class, FR_View, FR_Desgn, FR_DSet, FR_DBSet, Menus;

type
  TSys900_01Form = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    bbtnOk: TBitBtn;
    bbtnExit: TBitBtn;
    GroupBox1: TGroupBox;
    lblDateFormat: TLabel;
    cbDateFormat: TComboBox;
    lblSeparator: TLabel;
    cbSeparator: TComboBox;
    GroupBox2: TGroupBox;
    lblQtyFormat: TLabel;
    cbQtyFormat: TComboBox;
    lblRateFormat: TLabel;
    cbPriceFormat: TComboBox;
    lblPriceFormat: TLabel;
    lblAmountFormat: TLabel;
    cbAmountFormat: TComboBox;
    lblNegative: TLabel;
    cbNegative: TComboBox;
    GroupBox3: TGroupBox;
    lblKeyFromat: TLabel;
    cbKeyColor: TColorBox;
    lblKeyColor: TLabel;
    lblDateExample: TLabel;
    lblKeyExample: TLabel;
    lblKey: TLabel;
    lblQtyExample: TLabel;
    lblQty: TLabel;
    lblPriceExample: TLabel;
    lblPrice: TLabel;
    lblAmountExample: TLabel;
    lblAmount: TLabel;
    lblRateExample: TLabel;
    cbBold: TCheckBox;
    cbItalic: TCheckBox;
    cbUnderline: TCheckBox;
    cbRateFormat: TComboBox;
    lblRate: TLabel;
    lblNegaColor: TLabel;
    cbNegaColor: TColorBox;
    lblDate: TLabel;
    lblNegaQty: TLabel;
    lblNegaPrice: TLabel;
    lblNegaAmount: TLabel;
    lblNegaRate: TLabel;
    dsSys900: TDataSource;
    qrySys900: TADOQuery;
    GroupBox4: TGroupBox;
    cbAlter: TCheckBox;
    lblAlter: TLabel;
    dxSpinEdit1: TdxSpinEdit;
    lblTimes: TLabel;
    lblLanguage: TLabel;
    cbLanguage: TComboBox;
    qrySys900S900_001: TStringField;
    qrySys900S900_002: TStringField;
    qrySys900S900_003: TStringField;
    qrySys900S900_004: TStringField;
    qrySys900S900_005: TStringField;
    qrySys900S900_006: TStringField;
    qrySys900S900_007: TStringField;
    qrySys900S900_008: TBooleanField;
    qrySys900S900_009: TStringField;
    qrySys900S900_010: TStringField;
    qrySys900S900_011: TStringField;
    ScrollBox1: TScrollBox;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1S900_001: TdxDBGridColumn;
    dxDBGrid1S900_002: TdxDBGridColumn;
    dxDBGrid1S900_003: TdxDBGridColumn;
    dxDBGrid1S900_004: TdxDBGridColumn;
    dxDBGrid1S900_005: TdxDBGridColumn;
    dxDBGrid1S900_006: TdxDBGridColumn;
    dxDBGrid1S900_007: TdxDBGridButtonColumn;
    dxDBGrid1S900_008: TdxDBGridCheckColumn;
    lblAddress: TLabel;
    lblPort: TLabel;
    lblUrl: TLabel;
    edtAddress: TEdit;
    edtUrl: TEdit;
    cbAutoBackupData: TCheckBox;
    cbUpdate: TCheckBox;
    edtPath: TEdit;
    lblPath: TLabel;
    sbPath: TSpeedButton;
    edtPort: TEdit;
    TabSheet3: TTabSheet;
    dxDBGrid2: TdxDBGrid;
    dsSys920: TDataSource;
    qrySys920: TADOQuery;
    qrySys920S920_001: TIntegerField;
    qrySys920S920_002: TBooleanField;
    qrySys920S920_003: TWideStringField;
    qrySys920S920_004: TWideStringField;
    qrySys920S920_005: TDateTimeField;
    qrySys920S920_006: TWideStringField;
    qrySys920S920_007: TMemoField;
    dxDBGrid2S920_002: TdxDBGridCheckColumn;
    dxDBGrid2S920_003: TdxDBGridColumn;
    dxDBGrid2S920_004: TdxDBGridColumn;
    dxDBGrid2S920_005: TdxDBGridDateColumn;
    dxDBGrid2S920_006: TdxDBGridColumn;
    DBMemo1: TDBMemo;
    Panel1: TPanel;
    ProgressBar1: TProgressBar;
    ProgressBar2: TProgressBar;
    Label1: TLabel;
    Label2: TLabel;
    bbtnRefresh: TBitBtn;
    qryQuery: TADOQuery;
    qrySys900S900_012: TBooleanField;
    qrySys900S900_013: TBooleanField;
    qrySys900S900_014: TWideStringField;
    dxDBGrid1S900_012: TdxDBGridCheckColumn;
    dxDBGrid1S900_013: TdxDBGridCheckColumn;
    dxDBGrid1S900_014: TdxDBGridColumn;
    TabSheet4: TTabSheet;
    frPreview1: TfrPreview;
    frReport1: TfrReport;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;              //報表格式設置(&D)
    mmi25: TMenuItem;           //25%
    mmiRefresh: TMenuItem;      //刷新(&R)
    N2: TMenuItem;              //
    mmiPrint: TMenuItem;        //打印(&P)
    N3: TMenuItem;              //
    mmi100: TMenuItem;          //100%
    mmi75: TMenuItem;           //75%
    mmi50: TMenuItem;           //150%
    mmi200: TMenuItem;          //200%
    N4: TMenuItem;              //
    mmiPageWidth: TMenuItem;    //頁面寬度
    mmiOnePage: TMenuItem;      //整頁顯示
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bbtnOkClick(Sender: TObject);
    procedure bbtnExitClick(Sender: TObject);
    procedure cbSeparatorChange(Sender: TObject);
    procedure cbDateFormatChange(Sender: TObject);
    procedure cbQtyFormatChange(Sender: TObject);
    procedure cbPriceFormatChange(Sender: TObject);
    procedure cbAmountFormatChange(Sender: TObject);
    procedure cbRateFormatChange(Sender: TObject);
    procedure cbNegativeChange(Sender: TObject);
    procedure cbNegaColorChange(Sender: TObject);
    procedure cbBoldClick(Sender: TObject);
    procedure cbKeyColorChange(Sender: TObject);
    procedure qrySys900AfterScroll(DataSet: TDataSet);
    procedure qrySys900BeforePost(DataSet: TDataSet);
    procedure dxDBGrid1S900_007ButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure dxDBGrid1S900_008Change(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure sbPathClick(Sender: TObject);
    procedure edtPortKeyPress(Sender: TObject; var Key: Char);
    procedure bbtnRefreshClick(Sender: TObject);
    procedure PageControl1Changing(Sender: TObject;
      var AllowChange: Boolean);
    procedure dxDBGrid2KeyPress(Sender: TObject; var Key: Char);
    procedure dxDBGrid2MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure mmiPrintClick(Sender: TObject);
    procedure mmi200Click(Sender: TObject);
    procedure mmi100Click(Sender: TObject);
    procedure mmi75Click(Sender: TObject);
    procedure mmi50Click(Sender: TObject);
    procedure mmi25Click(Sender: TObject);
    procedure mmiPageWidthClick(Sender: TObject);
    procedure mmiOnePageClick(Sender: TObject);
    procedure mmiRefreshClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure frReport1GetValue(const ParName: String;
      var ParValue: Variant);
  private
    procedure SetInterface;
    procedure UpdateTAS500;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Sys900_01Form: TSys900_01Form;

implementation

uses CommFun, SYSDATA, TasComm, Sys900_02;

{$R *.dfm}

procedure TSys900_01Form.SetInterface;
begin
  Font.Name:=AFontName;
  Caption:=GetDBString('SYS90001001');  //系统参数
  TabSheet1.Caption:=GetDBString('SYS90001002');  //系统参数设置
  TabSheet2.Caption:=GetDBString('SYS90001003');  //单据编号规则

  GroupBox1.Caption:=GetDBString('SYS90001005');  //日期格式
  lblSeparator.Caption:=GetDBString('SYS90001006');  //分隔符
  lblDateFormat.Caption:=GetDBString('SYS90001005');  //日期格式
  lblDateExample.Caption:=GetDBString('SYS90001007');  //范例：

  GroupBox2.Caption:=GetDBString('SYS90001008');  //数字格式
  lblQtyFormat.Caption:=GetDBString('SYS90001009');  //数量格式
  lblQtyExample.Caption:=GetDBString('SYS90001007');  //范例：

  lblPriceFormat.Caption:=GetDBString('SYS90001010');  //单价格式
  lblPriceExample.Caption:=GetDBString('SYS90001007');  //范例：

  lblAmountFormat.Caption:=GetDBString('SYS90001011');  //金额格式
  lblAmountExample.Caption:=GetDBString('SYS90001007');  //范例：

  lblRateFormat.Caption:=GetDBString('SYS90001012');  //汇率格式
  lblRateExample.Caption:=GetDBString('SYS90001007');  //范例：

  lblNegative.Caption:=GetDBString('SYS90001013');  //负数格式
  lblNegaColor.Caption:=GetDBString('SYS90001014');  //字体颜色

  GroupBox3.Caption:=GetDBString('SYS90001015');  //关键字段
  lblKeyFromat.Caption:=GetDBString('SYS90001016');  //显示格式
  cbBold.Caption:=GetDBString('SYS90001017');  //粗体
  cbItalic.Caption:=GetDBString('SYS90001018');  //斜体
  cbUnderline.Caption:=GetDBString('SYS90001019');  //下划线
  lblKeyColor.Caption:=GetDBString('SYS90001014');  //字体颜色
  lblKeyExample.Caption:=GetDBString('SYS90001007');  //范例：
  lblKey.Caption:=GetDBString('SYS90001025');  //浩晖软件

  lblAlter.Caption:=GetDBString('SYS90001020');  //预警时间间隔
  lblTimes.Caption:=GetDBString('SYS90001021');  //秒

  GroupBox4.Caption:=GetDBString('SYS90001027');  //其他设置
  lblLanguage.Caption:=GetDBString('SYS90001022');  //缺省语言
  cbAlter.Caption:=GetDBString('SYS90001026');  //新消息到达时显示提示信息
  lblAddress.Caption:=GetDBString('SYS90001028');  //地址
  lblPort.Caption:=GetDBString('SYS90001029');  //端口
  lblUrl.Caption:=GetDBString('SYS90001030');  //升级网址
  cbAutoBackupData.Caption:=GetDBString('SYS90001031');  //系统关闭时自动备份数据
  lblPath.Caption:=GetDBString('SYS90001032');  //备份数据存放目录
  cbUpdate.Caption:=GetDBString('SYS90001033');  //自动探测系统最新版本，并提示升级

  bbtnOk.Caption:=GetDBString('SYS90001023');  //确定(&O)
  bbtnExit.Caption:=GetDBString('SYS90001024');  //退出(&X)

  bbtnRefresh.Caption:=GetDBString('SYS90001035');  //更新(&R)
  qrySys920S920_002.DisplayLabel:=GetDBString('SYS90001036');  //选择
  qrySys920S920_003.DisplayLabel:=GetDBString('SYS90001037');  //数据名称
  qrySys920S920_004.DisplayLabel:=GetDBString('SYS90001038');  //系统名称
  qrySys920S920_005.DisplayLabel:=GetDBString('SYS90001039');  //更新日期
  qrySys920S920_006.DisplayLabel:=GetDBString('SYS90001040');  //更新人员

  N1.Caption:=GetDBString('SYS90001042');              //報表格式設置(&D)
  mmiRefresh.Caption:=GetDBString('SYS90001043');      //刷新(&R)
  mmiPrint.Caption:=GetDBString('SYS90001044');        //打印(&P)
  mmiPageWidth.Caption:=GetDBString('SYS90001045');    //頁面寬度
  mmiOnePage.Caption:=GetDBString('SYS90001046');      //整頁顯示
end;

procedure TSys900_01Form.FormCreate(Sender: TObject);
var
  ALangNo:String;
  S:String;
begin
  //设置界面信息
  SetInterface;
  //取得所有的语种
  cbLanguage.Items.Clear;
  SYSDM.qryLanguage.Close;
  SYSDM.qryLanguage.SQL.Clear;
  SYSDM.qryLanguage.SQL.Add('select * from Langs');
  SYSDM.qryLanguage.Open;
  while not SYSDM.qryLanguage.Eof do
  begin
    ALangNo:=SYSDM.qryLanguage.FieldByName('LangNo').AsString;
    cbLanguage.Items.Add(GetDBString('LANG'+ALangNo));
    SYSDM.qryLanguage.Next;
  end;
  //从注册表中取得缺省语种设置
  SYSDM.qryLanguage.Locate('LangNo',IntToStr(ReadReg('LanguageID',2)),[]);
  ALangNo:=SYSDM.qryLanguage.FieldByName('LangNo').AsString;
  cbLanguage.ItemIndex:=cbLanguage.Items.IndexOf(GetDBString('LANG'+ALangNo));
  SYSDM.qryLanguage.Close;

  qrySys900.Open;

  //初始化系统参数
  //分隔符
  S:=GetSysParams('SYS0001');
  if S='' then
    cbSeparator.ItemIndex:=0
  else
    cbSeparator.ItemIndex:=StrToInt(S);

  //日期格式
  S:=GetSysParams('SYS0002');
  if S='' then
    cbDateFormat.ItemIndex:=0
  else
    cbDateFormat.ItemIndex:=StrToInt(S);
  cbDateFormatChange(cbDateFormat);

  //数量格式
  S:=GetSysParams('SYS0003');
  if S='' then
    cbQtyFormat.ItemIndex:=2
  else
    cbQtyFormat.ItemIndex:=StrToInt(GetSysParams('SYS0003'));
  cbQtyFormatChange(cbQtyFormat);

  //单价格式
  S:=GetSysParams('SYS0004');
  if S='' then
    cbPriceFormat.ItemIndex:=2
  else
    cbPriceFormat.ItemIndex:=StrToInt(S);
  cbPriceFormatChange(cbPriceFormat);

  //金额格式
  S:=GetSysParams('SYS0005');
  if S='' then
    cbAmountFormat.ItemIndex:=2
  else
    cbAmountFormat.ItemIndex:=StrToInt(S);
  cbAmountFormatChange(cbAmountFormat);

  //汇率格式
  S:=GetSysParams('SYS0006');
  if S='' then
    cbRateFormat.ItemIndex:=2
  else
    cbRateFormat.ItemIndex:=StrToInt(S);