sys_reportctrl_d.pas

一个MRPII系统源代码版本

//张程炜
unit Sys_ReportCtrl_D;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Detail, StdCtrls, Db, AdODB, ExtCtrls;

Type
  TFrm_Sys_ReportCtrl_D = Class(TFrm_Base_Detail)
    Edt_ReportName1: TEdit;
    Edt_ISOCode1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Lbl_SysMenuCode: TLabel;
    Label4: TLabel;
    Lbl_SysMenuName: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edt_ReportName2: TEdit;
    Edt_ISOCode2: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Edt_ReportName3: TEdit;
    Edt_ISOCode3: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  protected
  public
    procedure InitControls; Override;
    procedure SaveData; Override;
     { Public declarations }
  end;

var
  Frm_Sys_ReportCtrl_D: TFrm_Sys_ReportCtrl_D;

implementation

uses Sys_Global;

{$R *.DFM}

procedure TFrm_Sys_ReportCtrl_D.FormCreate(Sender: TObject);
begin
  inherited;
  SetFocus_Control:=Edt_ReportName1;
end;

procedure TFrm_Sys_ReportCtrl_D.InitControls;
begin
  inherited;
  with AdoQry_Maintain do
  begin
    Lbl_SysMenuCode.Caption:=fieldbyname('SysMenuCode').AsString;
    Lbl_SysMenuName.Caption:=Trim(fieldbyname('SysMenuName').AsString);
    Edt_ReportName1.Text:=fieldbyname('ReportName1').AsString;
    Edt_ISOCode1.Text:=fieldbyname('ISOCode1').AsString;
    Edt_ReportName2.Text:=fieldbyname('ReportName2').AsString;
    Edt_ISOCode2.Text:=fieldbyname('ISOCode2').AsString;
    Edt_ReportName3.Text:=fieldbyname('ReportName3').AsString;
    Edt_ISOCode3.Text:=fieldbyname('ISOCode3').AsString;
  end;
end;

procedure TFrm_Sys_ReportCtrl_D.SaveData;
begin
  with AdoQry_Tmp do
  begin
    Close;
    SQL.text:=
      ' select Count(*) recCount from ReportCtrl '+
          ' where SysMenuid='+AdoQry_Maintain.fieldbyname('SysMenuId').asstring;
    open;
    if fieldbyname('recCount').asinteger<=0 then
    begin
      Close;
      sql.text:=
        ' insert into ReportCtrl (SysMenuid) Values ('+AdoQry_Maintain.fieldbyname('SysMenuId').asstring+')';
      execsql;
    end;
    Close;
    sql.text:=
      ' Update ReportCtrl '+
          'Set ReportName1='''+Edt_ReportName1.Text+''', '+
              'ISOCode1='''+Edt_ISOCode1.Text+''', '+
              'ReportName2='''+Edt_ReportName2.Text+''', '+
              'ISOCode2='''+Edt_ISOCode2.Text+''', '+
              'ReportName3='''+Edt_ReportName3.Text+''', '+
              'ISOCode3='''+Edt_ISOCode3.Text+''' '+
          'where SysMenuId='+AdoQry_Maintain.fieldbyname('SysMenuId').asstring;
    ExecSQL;
  end;

  with AdoQry_Maintain do
  begin
    fieldbyname('ReportName1').AsString:=Edt_ReportName1.Text;
    fieldbyname('ISOCode1').AsString:=Edt_ISOCode1.Text;
    fieldbyname('ReportName2').AsString:=Edt_ReportName2.Text;
    fieldbyname('ISOCode2').AsString:=Edt_ISOCode2.Text;
    fieldbyname('ReportName3').AsString:=Edt_ReportName3.Text;
    fieldbyname('ISOCode3').AsString:=Edt_ISOCode3.Text;
    Post;
  end;
end;

end.