usysinfoedit.pas

天涯進銷存系統

unit uSysinfoEdit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, LBMorphVCLBase, LBMorphButton, StdCtrls, jpeg,
  LBDBCtrls, LBCtrls;

type
  TfrmSysinfoEdit = class(TForm)
    Image1: TImage;
    WindowCaption: TLabel;
    SysCloseButton: TLBMorphButton;
    Shape1: TShape;
    Shape4: TShape;
    Shape2: TShape;
    Image2: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Panel7: TPanel;
    LBDBEdit1: TLBDBEdit;
    LBDBEdit2: TLBDBEdit;
    LBDBEdit3: TLBDBEdit;
    LBDBEdit4: TLBDBEdit;
    LBDBEdit5: TLBDBEdit;
    LBDBEdit6: TLBDBEdit;
    LBDBEdit7: TLBDBEdit;
    LBDBEdit8: TLBDBEdit;
    LBDBEdit9: TLBDBEdit;
    LBDBEdit10: TLBDBEdit;
    LBDBEdit11: TLBDBEdit;
    LBDBEdit12: TLBDBEdit;
    LBDBEdit13: TLBDBEdit;
    LBDBEdit14: TLBDBEdit;
    LBDBNumberEdit1: TLBDBNumberEdit;
    LBDBEdit15: TLBDBEdit;
    EnterButton: TLBButton;
    CancelButton: TLBButton;
    Label18: TLabel;
    procedure FormShow(Sender: TObject);
    procedure EnterButtonClick(Sender: TObject);
    procedure CancelButtonClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure LBDBEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure LBDBEdit15KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSysinfoEdit: TfrmSysinfoEdit;
  isExec: Boolean;

implementation

uses uPublicvar, uDataMo, uConst;

{$R *.dfm}

procedure TfrmSysinfoEdit.FormShow(Sender: TObject);
begin
  isExec:=False;
  dmData.sdsSysinfo.Edit;
  if selectsysteminfotype=1 then
  begin
    LBDBEdit1.ReadOnly:=True;
    LBDBEdit14.ReadOnly:=True;
    Label16.Visible:=False;
  end
  else
  begin
    dmData.sdsSysinfo.FieldByName('BALANCECURRENCY').AsString:='人民币';
    dmData.sdsSysinfo.FieldByName('MAXAGIOSUM').AsString:='2';
  end;
end;

procedure TfrmSysinfoEdit.EnterButtonClick(Sender: TObject);
begin
  if Trim(LBDBEdit1.Text)='' then
  begin
    Application.MessageBox('请输入公司代号（代号最多为3个字符）。',Hintinfo, $30);
    LBDBEdit1.SetFocus;
    Exit;
  end;
  if Length(Trim(LBDBEdit1.Text))>3 then
  begin
    Application.MessageBox('公司代号最多为3个字符，请重新输入。',Hintinfo, $30);
    LBDBEdit1.SetFocus;
    Exit;
  end;
  if Trim(LBDBEdit2.Text)='' then
  begin
    Application.MessageBox('请输入公司名称。',Hintinfo, $30);
    LBDBEdit2.SetFocus;
    Exit; 
  end;
  if Trim(LBDBEdit14.Text)='' then
  begin
    Application.MessageBox('请输入结算币种。',Hintinfo, $30);
    LBDBEdit14.SetFocus;
    Exit; 
  end;
  dmData.sdsSysinfo.Edit;
  dmData.sdsSysinfo.Fieldbyname('isNew').asstring:='1';
  dmData.sdsSysinfo.ApplyUpdates(-1);
  isExec:=True;
  CurrencyName :=dmData.sdsSysinfo.Fieldbyname('BalanceCurrency').asstring;
  ComDepotCode :=dmData.sdsSysinfo.Fieldbyname('CorpCode').asstring;
  MaxAGIOSUM:=dmData.sdsSysinfo.Fieldbyname('MaxAGIOSUM').asfloat;
  Close;
end;

procedure TfrmSysinfoEdit.CancelButtonClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmSysinfoEdit.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  if (not isExec)and(selectsysteminfotype=0) then
  begin
    Application.Terminate;
  end;
end;

procedure TfrmSysinfoEdit.LBDBEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then  Perform(WM_NEXTDLGCTL,0,0);
end;

procedure TfrmSysinfoEdit.LBDBEdit15KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then EnterButtonClick(Sender);
end;

procedure TfrmSysinfoEdit.Image1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Handle, wm_SysCommand ,$F012, 0);
end;

procedure TfrmSysinfoEdit.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=27 then Close;
end;

end.