deptinfo.pas

一套非常发好的财务管理软件,想从事此方面开发的可以借签

unit DeptInfo;

interface

uses
  Windows, Graphics, Controls, Forms, SysUtils,
  Dialogs, StdCtrls, ExtCtrls, SUIButton, SUIEdit,
  SUIDBCtrls, SUIURLLabel, jpeg, Classes, SUIForm, DB, ADODB;

type
  TFrmDeptInfo = class(TForm)
    suiForm1: TsuiForm;
    Label9: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    editDeptName: TsuiEdit;
    editDeptManager: TsuiEdit;
    editFinanceManager: TsuiEdit;
    editDeptProperty: TsuiEdit;
    editAccountState: TsuiEdit;
    editAccountStartDate: TsuiEdit;
    Panel1: TPanel;
    btnOK: TsuiButton;
    btnCancel: TsuiButton;
    procedure editDeptNameChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
  private
    { Private declarations }
  public
  end;

var
  FrmDeptInfo: TFrmDeptInfo;
implementation

uses DataModule, PublicFunc;

{$R *.dfm}

procedure TFrmDeptInfo.editDeptNameChange(Sender: TObject);
begin
  btnOk.Enabled:=((Trim(editDeptName.Text)<>'') and (Trim(editDeptManager.Text)<>'') and (Trim(editFinanceManager.Text)<>''));
end;

procedure TFrmDeptInfo.FormShow(Sender: TObject);
begin
  editDeptName.Text:=DM.DeptName;
  editDeptManager.Text:=DM.DeptManager;
  editFinanceManager.Text:=DM.FinanceManager;
  editDeptProperty.Text:=DM.DeptProperty;

  if DM.AccountStartState then
  begin
    editAccountState.Text:='已启用';
    editAccountStartDate.Text:=DateToStr(DM.AccountStartDate);
  end
  else
    editAccountState.Text:='未启用';

  btnOK.Enabled:=false;
end;

procedure TFrmDeptInfo.btnOKClick(Sender: TObject);
begin
  DM.DeptName:=Trim(editDeptName.Text);
  DM.DeptManager:=Trim(editDeptManager.Text);
  DM.FinanceManager:=Trim(editFinanceManager.Text);
  SetOptionsKeyValue(DM.adoc,'单位名称',DM.DeptName);
  SetOptionsKeyValue(DM.adoc,'单位负责人',DM.DeptManager);
  SetOptionsKeyValue(DM.adoc,'财务主管',DM.FinanceManager);
end;

end.