jbdafrm.~pas

系统功能包括操作员档案管理,客户档案管理,计量单位设置,仓库类别设置,货物类别设置等功能

unit JbdaFrm;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls,
  StdCtrls, Buttons, ComCtrls, ExtCtrls, Tabnotbk, Db, ADODB,
  Grids, DBGrids,dialogs, DBCtrls;

type
  TfrmJbda = class(TForm)
    tblCzy: TADOTable;
    tblGhs: TADOTable;
    tblKh: TADOTable;
    tblJldw: TADOTable;
    tblCklb: TADOTable;
    tblHwlb: TADOTable;
    dsGhs: TDataSource;
    dsKh: TDataSource;
    dsJldw: TDataSource;
    dsCklb: TDataSource;
    dsHwlb: TDataSource;
    dsCzy: TDataSource;
    pgcMain: TPageControl;
    shtCzy: TTabSheet;
    shtGhs: TTabSheet;
    shtKh: TTabSheet;
    shtJldw: TTabSheet;
    shtCklb: TTabSheet;
    shtHwlb: TTabSheet;
    grdCzy: TDBGrid;
    Panel1: TPanel;
    grpSq: TGroupBox;
    chkJbda: TDBCheckBox;
    chkGhs: TDBCheckBox;
    chkKh: TDBCheckBox;
    chkJldw: TDBCheckBox;
    chkCklb: TDBCheckBox;
    chkHwlb: TDBCheckBox;
    chkRk: TDBCheckBox;
    chkCk: TDBCheckBox;
    chkTk: TDBCheckBox;
    chkDk: TDBCheckBox;
    chkJc: TDBCheckBox;
    chkGh: TDBCheckBox;
    chkPd: TDBCheckBox;
    chkCkcx: TDBCheckBox;
    chkWncx: TDBCheckBox;
    chkCsh: TDBCheckBox;
    chkLog: TDBCheckBox;
    chkBfyhh: TDBCheckBox;
    grdGhs: TDBGrid;
    grdKh: TDBGrid;
    grdJldw: TDBGrid;
    grdCklb: TDBGrid;
    grdHwlb: TDBGrid;
    DBNavigator1: TDBNavigator;
    Panel2: TPanel;
    dbngGhs: TDBNavigator;
    pnlKhBottom: TPanel;
    dbngKh: TDBNavigator;
    pnlJldwBottom: TPanel;
    dbngJldw: TDBNavigator;
    Panel5: TPanel;
    dbngCklb: TDBNavigator;
    pnlHwlbBottom: TPanel;
    dbngHwlb: TDBNavigator;
    procedure tblCzyAfterInsert(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
    procedure tblCzyBeforeOpen(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


implementation

{$R *.DFM}

uses
  ConstUnt;

procedure TfrmJbda.tblCzyAfterInsert(DataSet: TDataSet);
var
  I: Byte;
begin
  //设置新添加记录编号（bh）字段的值
  DataSet.FieldByName('bh').AsInteger :=
    GetTableMaxValue(LogonInf.dbJbda,
      Copy(DataSet.Name, 4, Length(DataSet.Name)), 'bh');
  //判断当前表是否是操作员表
  if DataSet.Name = 'tblCzy' then
    //判断当前表是否是操作员表，设置操作员的权限
    for I := Low(TFieldSq) to High(TFieldSq) do
      DataSet.FieldByName(IntToStr(I)).Value := False;
end;

procedure TfrmJbda.FormShow(Sender: TObject);
var
  PtblTemp: ^TADOTable;
  I: Byte;
begin
  PtblTemp := @tblCzy;
  //依次设置与操作员（czy）表、供货商（ghs）表、计量单位（jldw）表或者货物类别（hwlb）等表相对应的TAdotable组件的connection属性，使这些组件连接到数据库jbda,并使其返回相应表中的所有记录
  for I := 0 to 5 do
  begin
    with pgcMain, LogonInf do
      Pages[I].TabVisible := FunctionLst.Strings[I] = 'True';
  end;
   PtblTemp^.Connection := LogonInf.dbJbda;
    PtblTemp^.Open;
    Inc(PtblTemp);
end;

procedure TfrmJbda.tblCzyBeforeOpen(DataSet: TDataSet);
begin
  tblCzy.Filter := 'name <> ''管理员''';
  tblCzy.Filtered := True;
end;

end.