bas_param.pas

一个MRPII系统源代码版本

unit Bas_Param;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Dialog, Db, AdODB, StdCtrls, ExtCtrls, ComCtrls, Mask;

Type
  TFrm_Bas_Param = Class(TFrm_Base_Dialog)
    PageControl1: TPageControl;
    TbSht_UserInfo: TTabSheet;
    TbSht_ClassInfo1: TTabSheet;
    Label1: TLabel;
    Edt_Name0: TEdit;
    Label2: TLabel;
    Edt_Name1: TEdit;
    Label3: TLabel;
    Edt_Name2: TEdit;
    Label4: TLabel;
    Edt_Address: TEdit;
    Label5: TLabel;
    Edt_Bank: TEdit;
    Label6: TLabel;
    Edt_BankAccNo: TEdit;
    Label7: TLabel;
    Edt_TaxNo: TEdit;
    Label8: TLabel;
    Edt_Tel: TEdit;
    Label9: TLabel;
    Edt_Owner: TEdit;
    Label10: TLabel;
    Edt_Fax: TEdit;
    Label11: TLabel;
    Edt_ItemClass1Name: TEdit;
    Bevel1: TBevel;
    Label12: TLabel;
    Label13: TLabel;
    Edt_ItemClass2Name: TEdit;
    Label14: TLabel;
    Edt_ItemClass3Name: TEdit;
    Label15: TLabel;
    Edt_ItemClass4Name: TEdit;
    Label16: TLabel;
    Edt_ItemClass5Name: TEdit;
    Label17: TLabel;
    Bevel2: TBevel;
    Label18: TLabel;
    Edt_VendorClass1Name: TEdit;
    Edt_VendorClass2Name: TEdit;
    Edt_VendorClass3Name: TEdit;
    Edt_VendorClass4Name: TEdit;
    Edt_VendorClass5Name: TEdit;
    Label23: TLabel;
    Bevel3: TBevel;
    Label24: TLabel;
    Edt_CustomerClass1Name: TEdit;
    Label25: TLabel;
    Edt_CustomerClass2Name: TEdit;
    Label26: TLabel;
    Edt_CustomerClass3Name: TEdit;
    Label27: TLabel;
    Edt_CustomerClass4Name: TEdit;
    Label28: TLabel;
    Edt_CustomerClass5Name: TEdit;
    TbSht_ClassInfo2: TTabSheet;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label29: TLabel;
    Bevel4: TBevel;
    Label30: TLabel;
    Edt_SaleType1: TEdit;
    Label31: TLabel;
    Edt_SaleType2: TEdit;
    Label32: TLabel;
    Edt_SaleType3: TEdit;
    Label33: TLabel;
    Edt_SaleType4: TEdit;
    Label34: TLabel;
    Edt_SaleType5: TEdit;
    Label35: TLabel;
    Edt_SaleType7: TEdit;
    Label36: TLabel;
    Edt_SaleType8: TEdit;
    Label37: TLabel;
    Edt_SaleType9: TEdit;
    Label38: TLabel;
    Edt_SaleType10: TEdit;
    Label39: TLabel;
    Edt_SaleType6: TEdit;
    Label40: TLabel;
    Bevel5: TBevel;
    Label41: TLabel;
    Edt_ShiftType1: TEdit;
    Label42: TLabel;
    Edt_ShiftType2: TEdit;
    Label43: TLabel;
    Edt_ShiftType3: TEdit;
    Label44: TLabel;
    Edt_ShiftType4: TEdit;
    Label45: TLabel;
    Edt_ShiftType5: TEdit;
    Label46: TLabel;
    Edt_EMail: TEdit;
    TabSheet1: TTabSheet;
    Label47: TLabel;
    Label48: TLabel;
    cmbx_qtylen: TComboBox;
    Label49: TLabel;
    cmbx_Pricelen: TComboBox;
    Label50: TLabel;
    Label51: TLabel;
    Edt_ShiftType7: TEdit;
    Label52: TLabel;
    Edt_ShiftType8: TEdit;
    Label53: TLabel;
    Edt_ShiftType9: TEdit;
    Label54: TLabel;
    Edt_ShiftType10: TEdit;
    Label55: TLabel;
    Edt_ShiftType6: TEdit;
    Label56: TLabel;
    cmbx_Itemlen: TComboBox;
    edt_Itemlen: TEdit;
    Label57: TLabel;
    Label58: TLabel;
    Label59: TLabel;
    cmbx_Customerlen: TComboBox;
    edt_Customerlen: TEdit;
    cmbx_Vendorlen: TComboBox;
    edt_Vendorlen: TEdit;
    Label60: TLabel;
    Medt_Month: TMaskEdit;
    Label61: TLabel;
    cmbbx_CutomerTaxNoLen: TComboBox;
    Edt_CutomerTaxNoLen: TEdit;
    procedure Edt_Name0Change(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure btn_CancelClick(Sender: TObject);
    procedure edt_ItemlenExit(Sender: TObject);
    procedure edt_VendorlenExit(Sender: TObject);
    procedure edt_CustomerlenExit(Sender: TObject);
  private
    { Private declarations }
    FReadOnly:Boolean;
  public
   procedure InitForm(AdoConnection:TAdoConnection;ReadOnly:Boolean);
    { Public declarations }
  end;

var
  Frm_Bas_Param: TFrm_Bas_Param;

implementation
uses Sys_Global;
{$R *.DFM}

{ TFrm_Bas_Param }


procedure TFrm_Bas_Param.InitForm(AdoConnection: TAdoConnection;
  ReadOnly: Boolean);
var I: integer;
begin
   TbSht_UserInfo.Show;
   repaint;
   FReadOnly:=ReadOnly;
   AdoQry_Tmp.Connection:=AdOConnection;
   AdoQry_Tmp.Close ;
   AdoQry_Tmp.SQL.clear ;
   AdoQry_Tmp.SQL.Add('select * from SysParam');
   AdoQry_Tmp.Open ;
  With AdoQry_Tmp do
  begin
    if  Locate('SysParamCode','Name0',[]) then
    Edt_Name0.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','Name1',[])  then
    Edt_Name1.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','Name2',[])  then
    Edt_Name2.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','Address',[])  then
    Edt_Address.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','Email',[])  then
    Edt_Email.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','Bank',[])  then
    Edt_Bank.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','BankAccNo',[])  then
    Edt_BankAccNo.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','TaxNo',[])  then
    Edt_TaxNo.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','Tel',[])  then
    Edt_Tel.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','Fax',[])  then
    Edt_Fax.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','Owner',[])  then
    Edt_Owner.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','ItemClass1Name',[])  then
    Edt_ItemClass1Name.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','ItemClass2Name',[])  then
    Edt_ItemClass2Name.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','ItemClass3Name',[])  then
    Edt_ItemClass3Name.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','ItemClass4Name',[])  then
    Edt_ItemClass4Name.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','ItemClass5Name',[])  then
    Edt_ItemClass5Name.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','CustomerClass1Name',[])  then
    Edt_CustomerClass1Name.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','CustomerClass2Name',[])  then
    Edt_CustomerClass2Name.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','CustomerClass3Name',[])  then
    Edt_CustomerClass3Name.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','CustomerClass4Name',[])  then
    Edt_CustomerClass4Name.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','CustomerClass5Name',[])  then
    Edt_CustomerClass5Name.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','VendorClass1Name',[])  then
    Edt_VendorClass1Name.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','VendorClass2Name',[])  then
    Edt_VendorClass2Name.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','VendorClass3Name',[])  then
    Edt_VendorClass3Name.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','VendorClass4Name',[])  then
    Edt_VendorClass4Name.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','VendorClass5Name',[])  then
    Edt_VendorClass5Name.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','SaleType1',[])  then
    Edt_SaleType1.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','SaleType2',[])  then
    Edt_SaleType2.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','SaleType3',[])  then
    Edt_SaleType3.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','SaleType4',[])  then
    Edt_SaleType4.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','SaleType5',[])  then
    Edt_SaleType5.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','SaleType6',[])  then
    Edt_SaleType6.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','SaleType7',[])  then
    Edt_SaleType7.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','SaleType8',[])  then
    Edt_SaleType8.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','SaleType9',[])  then
    Edt_SaleType9.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','SaleType10',[])  then
    Edt_SaleType10.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','ShiftType1',[])  then
    Edt_ShiftType1.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','ShiftType2',[])  then
    Edt_ShiftType2.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','ShiftType3',[])  then
    Edt_ShiftType3.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','ShiftType4',[])  then
    Edt_ShiftType4.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','ShiftType5',[])  then
    Edt_ShiftType5.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','ShiftType6',[])  then
    Edt_ShiftType6.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','ShiftType7',[])  then
    Edt_ShiftType7.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','ShiftType8',[])  then
    Edt_ShiftType8.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','ShiftType9',[])  then
    Edt_ShiftType9.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','ShiftType10',[])  then
    Edt_ShiftType10.text:=fieldbyname('SysParamValuec').asstring;

    If  Locate('SysParamCode','QTYLen',[])  then
    cmbx_qtylen.ItemIndex:=fieldbyname('SysParamValuen').asinteger+1;

    If  Locate('SysParamCode','PriceLen',[])  then
    cmbx_Pricelen.ItemIndex:=fieldbyname('SysParamValuen').asinteger+1;

    If  Locate('SysParamCode','StArtMonth',[])  then
    Medt_Month.Text:=fieldbyname('SysParamValueC').asstring;

    If  Locate('SysParamCode','ItemCodeLen',[])  then
    begin
       edt_Itemlen.text:=fieldbyname('SysParamValuen').asstring;
       if fieldbyname('SysParamValuec').asstring='1' then
          cmbx_Itemlen.ItemIndex:=1
       else
          cmbx_Itemlen.ItemIndex:=0;
    end;
    If  Locate('SysParamCode','VendorCodeLen',[])  then
    begin
       edt_Vendorlen.text:=fieldbyname('SysParamValuen').asstring;
       if fieldbyname('SysParamValuec').asstring='1' then
          cmbx_Vendorlen.ItemIndex:=1
       else
          cmbx_Vendorlen.ItemIndex:=0;
    end;
    If  Locate('SysParamCode','CustomerCodeLen',[])  then
    begin
       edt_Customerlen.text:=fieldbyname('SysParamValuen').asstring;
       if fieldbyname('SysParamValuec').asstring='1' then
          cmbx_Customerlen.ItemIndex:=1
       else
          cmbx_Customerlen.ItemIndex:=0;
    end;
    If  Locate('SysParamCode','CutomerTaxNoLen',[])  then
    begin
       Edt_CutomerTaxNoLen.text:=fieldbyname('SysParamValuen').asstring;
       if fieldbyname('SysParamValuec').asstring='1' then
          cmbbx_CutomerTaxNoLen.ItemIndex:=1
       else
          cmbbx_CutomerTaxNoLen.ItemIndex:=0;
    end;
    Btn_OK.enabled:=False;
    for i:=0 to ControlCount-1 do
    begin
      if (controls[i] is TEdit) then
      TEdit(controls[i]).Enabled:=False;
    end;
  end;
end;

procedure TFrm_Bas_Param.Edt_Name0Change(Sender: TObject);
begin
  inherited;
  if not FReadOnly then
    Btn_Ok.Enabled :=True;
end;

procedure TFrm_Bas_Param.btn_okClick(Sender: TObject);
begin
  inherited;
  With AdoQry_Tmp do
  begin
   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_Name0.Text)+''''+
     ' where SysParamCode='''+'Name0'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_Name1.Text)+''''+
     ' where SysParamCode='''+'Name1'+'''');