frm_filenogeneralruleinfo.~pas

站长您好

unit Frm_FileNoGeneralRuleInfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Frm_Cargo, XPMenu, DB, ADODB, StdCtrls, Buttons, ExtCtrls,
  ComCtrls;

type
  TFrmFileNoGeneralRuleInfo = class(TFrmCargo)
    LV: TListView;
    Panel1: TPanel;
    Panel2: TPanel;
    BtnCancel: TBitBtn;
    BtnNew: TBitBtn;
    BtnDelete: TBitBtn;
    BtnEdit: TBitBtn;
    QryTemp: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure BtnNewClick(Sender: TObject);
    procedure BtnEditClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmFileNoGeneralRuleInfo: TFrmFileNoGeneralRuleInfo;

implementation

uses Frm_Main, Frm_FileNoGeneralRuleEdit;

{$R *.dfm}

procedure TFrmFileNoGeneralRuleInfo.FormCreate(Sender: TObject);
begin
  inherited;
  QryTemp.Close;
  QryTemp.SQL.Text :=
    'FileNoPre,FileNoRule,FileNoDesc,CurrentNo,ZeroRule,ZeroData,Remark from FileNoInfo';
  QryTemp.Open;

  FrmMain.AddColumn(LV, '工作号', 120);
  FrmMain.AddColumn(LV, '编码规则', 120);
  FrmMain.AddColumn(LV, '中文名称', 120);
  FrmMain.AddColumn(LV, '当前数值', 120);
  FrmMain.AddColumn(LV, '归零方式', 120);
  FrmMain.AddColumn(LV, '归零值', 120);
  FrmMain.AddColumn(LV, '描  述', 120);

  FrmMain.AddData(LV, QryTemp);
end;

procedure TFrmFileNoGeneralRuleInfo.BtnNewClick(Sender: TObject);
begin
  inherited;
  FrmFileNoGeneralRuleEdit := TFrmFileNoGeneralRuleEdit.Create(Self);
  FrmFileNoGeneralRuleEdit.IsEdit := False;
  FrmFileNoGeneralRuleEdit.FileNoPre := '';
  FrmFileNoGeneralRuleEdit.Showmodal;
end;

procedure TFrmFileNoGeneralRuleInfo.BtnEditClick(Sender: TObject);
begin
  inherited;
  if LV.SelCount = 0 then
  begin
    ShowMessage('请选择一条记录进行编辑!');
    exit;
  end;

  FrmFileNoGeneralRuleEdit := TFrmFileNoGeneralRuleEdit.Create(Self);
  with FrmFileNoGeneralRuleEdit do
  begin
    IsEdit := True;
    BtnAdd.Enabled := True;
    FileNoPre := LV.Selected.Caption;
    Showmodal;
  end;
end;

end.