formsystemmanager.pas

用Delphi编写的生产管理系统源码

unit FormSystemManager;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TemplateForm, ComCtrls, DB, ADODB, Frame_DataEdit, ExtCtrls,
  TFlatPanelUnit, TFlatTitlebarUnit, TFlatSplitterUnit, Menus, RxMenus,
  Grids, DBGrids, RXDBCtrl, StdCtrls, ToolEdit, Mask, DBCtrls, dbcgrids,
  TFlatListBoxUnit, TFlatButtonUnit;

type
  TFrmSysManager = class(TFrmTemplate)
    DataSource1: TDataSource;
    ADODataSet1: TADODataSet;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBCtrlGrid1: TDBCtrlGrid;
    MainADODataSetID: TStringField;
    MainADODataSetDSDesigner: TStringField;
    MainADODataSetDSDesigner4: TDateTimeField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBDateEdit1: TDBDateEdit;
    FlatPanel3: TFlatPanel;
    FlatPanel4: TFlatPanel;
    FlatListBox1: TFlatListBox;
    FlatPanel5: TFlatPanel;
    FlatPanel6: TFlatPanel;
    DBGrid1: TDBGrid;
    TabSheet3: TTabSheet;
    RxPopupMenu1: TRxPopupMenu;
    N1: TMenuItem;
    FlatButton1: TFlatButton;
    RxPopupMenu2: TRxPopupMenu;
    N2: TMenuItem;
    DBCtrlGrid2: TDBCtrlGrid;
    ADODataSet1ID: TStringField;
    ADODataSet1DSDesigner: TStringField;
    FlatPanel7: TFlatPanel;
    FlatPanel8: TFlatPanel;
    FlatListBox2: TFlatListBox;
    FlatPanel9: TFlatPanel;
    FlatPanel10: TFlatPanel;
    RxDBGrid1: TRxDBGrid;
    FlatButton2: TFlatButton;
    Label4: TLabel;
    DBEdit3: TDBEdit;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    RxPopupMenu3: TRxPopupMenu;
    RxPopupMenu4: TRxPopupMenu;
    N3: TMenuItem;
    N4: TMenuItem;
    ADODataSet1DSDesigner2: TStringField;
    ADODataSet1DSDesigner3: TStringField;
    procedure FormPaint(Sender: TObject);
    procedure MainADODataSetAfterScroll(DataSet: TDataSet);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure FlatButton1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure ADODataSet1AfterScroll(DataSet: TDataSet);
    procedure RxDBGrid1DblClick(Sender: TObject);
    procedure FlatButton2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmSysManager: TFrmSysManager;

implementation

uses AdoDataMoudle, UserInfo, MainForm;

{$R *.dfm}

procedure TFrmSysManager.FormPaint(Sender: TObject);
begin
  inherited;
  DBCtrlGrid1.RowCount := DBCtrlGrid1.Height div 50;
  DBCtrlGrid2.RowCount := DBCtrlGrid2.Height div 50;
end;

procedure TFrmSysManager.MainADODataSetAfterScroll(DataSet: TDataSet);
begin
  inherited;
  FlatListBox1.Items := SysUser.WhichGroupTheUserIN(MainADODataSet.fieldbyname('ㄏノ