main_pas.~pas

一个考勤管理系统

unit main_pas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, datamd_pas,setpsw_pas,xmgl_pas,user_pas,ygkc_pas,kccx_pas;

type
  Tmain_Form = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    procedure N9Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main_Form: Tmain_Form;

implementation

{$R *.dfm}

procedure Tmain_Form.N9Click(Sender: TObject);
begin
  close();
end;

procedure Tmain_Form.N8Click(Sender: TObject);
begin
  setpsw_form.Edit1.Clear;
  setpsw_form.Edit2.Clear;
  setpsw_form.Label1.Caption:='当前用户：'+datamodule1.user_name;
  setpsw_form.Show;
end;

procedure Tmain_Form.N2Click(Sender: TObject);
begin
//  datamodule1.ADOTable_xm.Active:=false;
  datamodule1.ADOTable_xm.Active:=true;
//  xmgl_form.DataSource1.DataSet:=datamodule1.ADOTable_xm;
  xmgl_form.Show;
 // datamodule1.ADOTable_xm.Active:=false;
end;

procedure Tmain_Form.N4Click(Sender: TObject);
begin
 // datamodule1.ADOTable_yg.Active:=false;
  datamodule1.ADOTable_yg.Active:=true;
//  user_form.DataSource1.DataSet:=datamodule1.ADOTable_yg;
  user_form.Show;
 // datamodule1.ADOTable_yg.Active:=false;  
end;

procedure Tmain_Form.N5Click(Sender: TObject);
begin
  Application.CreateForm(Tygkc_form, ygkc_form);
  datamodule1.ADOTable_xm.Active:=false;
  datamodule1.ADOTable_xm.Active:=true;
  ygkc_form.ComboBox1.Items.Clear;
  if datamodule1.ADOTable_xm.IsEmpty then
    begin
      application.MessageBox('项目未输入，请用管理员身份登录，在项目管理中输入','操作提示',mb_ok);
      exit;
    end;
  datamodule1.ADOTable_xm.First;
   while not datamodule1.ADOTable_xm.eof do begin
      ygkc_form.ComboBox1.Items.Add(datamodule1.ADOTable_xm.fieldbyname('项目名称').value);
      datamodule1.ADOTable_xm.Next;
   end;
   ygkc_form.ComboBox1.ItemIndex:=0;
   datamodule1.ADOTable_xmck.Active:=false;
   datamodule1.ADOTable_xmck.Active:=true;
   ygkc_form.ComboBox1Change(sender);
   datamodule1.ADODataSet1.Close;
   ygkc_form.show;

end;

procedure Tmain_Form.N6Click(Sender: TObject);
begin
  Application.CreateForm(Tkccx_form, kccx_form);
  datamodule1.ADOTable_xm.Active:=false;
  datamodule1.ADOTable_xm.Active:=true;
  kccx_form.ComboBox1.Items.Clear;
  datamodule1.ADOTable_xm.First;
   while not datamodule1.ADOTable_xm.eof do begin
      kccx_form.ComboBox1.Items.Add(datamodule1.ADOTable_xm.fieldbyname('项目名称').value);
      datamodule1.ADOTable_xm.Next;
   end;
  datamodule1.ADOTable_xm.Active:=false;
  kccx_form.ComboBox1.ItemIndex:=0;
  if not datamodule1.ADOTable_yg.Active then datamodule1.ADOTable_yg.Active:=true;
  datamodule1.ADOTable_yg.First;
  while not datamodule1.ADOTable_yg.Eof do begin
    kccx_form.ComboBox2.Items.Add(datamodule1.ADOTable_yg.fieldbyname('user_name').Value);
    datamodule1.ADOTable_yg.Next;
  end;
  datamodule1.ADOTable_yg.Active:=false;
  if datamodule1.user_jb='管理员' then
    begin kccx_form.CheckBox2.Enabled:=true;kccx_form.ComboBox2.ItemIndex:=0 end
  else
    begin kccx_form.CheckBox2.Enabled:=false;kccx_form.ComboBox2.Text:=datamodule1.user_name;end;
  kccx_form.Show;
end;

end.