u_system.pas

repair repairrepairrepairrepair

unit u_system;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, DBCtrls, Mask, Grids, DBGrids, ComCtrls, ExtDlgs;

type
  TF_system = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBNavigator1: TDBNavigator;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBRadioGroup1: TDBRadioGroup;
    Label4: TLabel;
    Label5: TLabel;
    i_passwd: TEdit;
    i_passwd2: TEdit;
    B_change: TButton;
    TableList: TListBox;
    DBNavigator2: TDBNavigator;
    DBGrid2: TDBGrid;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    DBG_ungroup: TDBGrid;
    DBG_group: TDBGrid;
    DBG_group_info: TDBGrid;
    DBNavigator3: TDBNavigator;
    GroupBox6: TGroupBox;
    DBMemo1: TDBMemo;
    GroupBox7: TGroupBox;
    DBImage1: TDBImage;
    OPD1: TOpenPictureDialog;
    procedure TabSheet1Show(Sender: TObject);
    procedure B_changeClick(Sender: TObject);
    procedure TableListClick(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure DBG_ungroupDblClick(Sender: TObject);
    procedure DBG_groupDblClick(Sender: TObject);
    procedure DBImage1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_system: TF_system;

implementation

uses u_data;
{$R *.DFM}

procedure TF_system.TabSheet1Show(Sender: TObject);
begin
  DM_main.OpenPerson;
end;

procedure TF_system.B_changeClick(Sender: TObject);
begin
  if i_passwd.Text=i_passwd2.Text then
    DM_main.SetPassword(i_passwd.Text)
  else
    Application.MessageBox('请重新确认密码！', '确认失败', MB_OK);
end;

procedure TF_system.TableListClick(Sender: TObject);
var
  TabName:String;
begin
  case TableList.ItemIndex of
    0: TabName:='ADB_CAUSE';
    1: TabName:='ADB_CONSEQUENCE';
    2: TabName:='ADB_DISTRIBUTION';
    3: TabName:='ADB_MERCHANT';
    4: TabName:='ADB_MODE';
    5: TabName:='ADB_OPERATION';
    6: TabName:='ADB_RESULT';
    7: TabName:='ADB_SYSTEM';
    8: TabName:='ADB_TYPE';
    9: TabName:='ADB_WORKPLACE';
  end;
  DM_main.SetCodeTable(TabName);
end;

procedure TF_system.TabSheet2Show(Sender: TObject);
begin
  DM_main.OpenGroup;
end;

procedure TF_system.DBG_ungroupDblClick(Sender: TObject);
begin
  DM_main.AddToGroup;
end;

procedure TF_system.DBG_groupDblClick(Sender: TObject);
begin
  DM_main.DelFromGroup;
end;

procedure TF_system.DBImage1DblClick(Sender: TObject);
begin
  if OPD1.Execute then
    DBImage1.Picture.LoadFromFile(OPD1.FileName);
end;

end.