inv_billtype.pas

来自「一个MRPII系统源代码版本」· PAS 代码 · 共 68 行

unit Inv_BillType;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Outer, Menus, ExtPrintReport, Db, ActnList, AdODB, Grids, DBGridEh,
  StdCtrls, ExtCtrls, ComCtrls, ToolWin, jpeg;

Type
  TFrm_Inv_BillType = Class(TFrm_Base_Outer)
    AdoQry_MaInBillTypeCode: TStringField;
    AdoQry_MaInBillTypeName: TStringField;
    AdoQry_MaInBillLINES: TIntegerField;
    AdoQry_MaInBillCOLORDESC: TStringField;
    AdoQry_MaInBillCtrlCode: TStringField;
    AdoQry_MaInBillColorDESC2: TStringField;
    AdoQry_MaInBillCtrlCode2: TStringField;
  private
    { Private declarations }
  public
    function  SetDeleteSql:String;Override;
    procedure initform(AdOConnection:TAdOConnection;ReadOnly:boolean);Override;

    { Public declarations }
  end;

var
  Frm_Inv_BillType: TFrm_Inv_BillType;

implementation

uses Inv_BillType_D;

{$R *.DFM}

procedure TFrm_Inv_BillType.initform(AdOConnection:TAdOConnection;ReadOnly:boolean);
begin//SQL初始化
  inherited;
  SelectFromSQL:='Select BillTypeCode,'+
                        'BillTypeName,'+
                        'Billlines,'+
                        'BillCtrlCode,'+
                        'BillcolorDESC,'+
                        'BillCtrlCode2,'+
                        'BillcolorDESC2'+
                 ' from BillType ';

  //当前排序字段
  OrderByFields:='BillTypeCode';
  lbl_Order.Caption:='单据类型代码';
  tlbtn_New.Visible :=False;
  tlbtn_New.Enabled :=False;
  tlbtn_Delete.visible:=False;
  tlbtn_Delete.enabled:=False;

  GetData;
  //设置弹出窗体
  Frm_Sys_Detail:=TFrm_Inv_BillType_D.Create(Application);
end;

function TFrm_Inv_BillType.SetDeleteSql: String;
begin
  Result:='Delete BillType Where BillTypeCode='''+AdoQry_Main.fieldbyname('BillTypeCode').AsString+'''';
end;

end.