f_main.pas

使用Delphi开发的成本管理系统

unit f_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ToolWin, ComCtrls, ExtCtrls, Menus, ImgList, jpeg;
  type userinfo = record // 定义用户信息
    id: string;
    name: string; // 用户权限
  end;
type
   Tw_main = class(TForm)
    stb: TStatusBar;
    Timer1: TTimer;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N13: TMenuItem;
    N23: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    ImageList1: TImageList;
    N24: TMenuItem;
    N32: TMenuItem;
    N28: TMenuItem;
    imgMain: TImage;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer1Timer(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     auser: userinfo;
  end;

var
  w_main: Tw_main;

implementation

uses Unit1, f_xgmm, f_yhgl, f_active, f_resourse, f_workshop, f_product,
  f_workshop_item, f_product_item, f_cost_active, f_material, f_labor,
  f_DataBack, f_labor_master, f_workshop_master, f_product_master,
  f_cost_master, f_material_master, f_active_id, f_resourse_distribute,
  f_cbhs, f_bz;

{$R *.dfm}
function whatweek:string;
var
i_week:integer;
begin
i_week:=dayofweek(now());
 case i_week of
  1:result:='星期日';
  2:result:='星期一';
  3:result:='星期二';
  4:result:='星期三';
  5:result:='星期四';
  6:result:='星期五';
  7:result:='星期六';
  end;
end;
procedure Tw_main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if application.MessageBox('确认要退出程序吗？','提示',mb_okcancel)=idok then
    begin
    Action := caFree;
    application.Terminate;
    end
else
    Action := caNone;
end;

procedure Tw_main.Timer1Timer(Sender: TObject);
var
  s_date,strl,str2:string;
begin
strl:= formatdatetime('yyyy/mm/dd ',date());
str2:='今天是 '+copy(strl,1,4)+ '年' +copy(strl,6,2)+ '月' +copy(strl,9,2)+ '日' ;
s_date:='   '+str2+'  '+whatweek();
StB.Panels[4].Text:=s_date;
stb.Panels[0].Text := ' 系统属于开发阶段.....';
Stb.Panels[1].Text:='  当前用户: '+'  '+w_main.auser.name+'  属于 '+form1.power;
Stb.Panels[2].Text:='  服务器:'+form1.Edit3.Text;
end;
procedure Tw_main.N2Click(Sender: TObject);
begin
form1.Edit1.Clear;
form1.Edit2.Clear;
form1.Edit3.Clear;
w_main.Hide;
form1.Show;
end;
procedure Tw_main.N4Click(Sender: TObject);
begin
w_xgmm:=tw_xgmm.Create(self);
w_xgmm.show;
end;

procedure Tw_main.N3Click(Sender: TObject);
begin
w_yhgl:=tw_yhgl.create(self);
w_yhgl.ShowModal;
end;
procedure Tw_main.N10Click(Sender: TObject);
begin
w_active:=tw_active.create(self);
w_active.show;
end;

procedure Tw_main.N11Click(Sender: TObject);
begin
w_resourse:=tw_resourse.create(self);
w_resourse.show;
end;

procedure Tw_main.N16Click(Sender: TObject);
begin
w_workshop:=tw_workshop.create(self);
w_workshop.show;
end;

procedure Tw_main.N18Click(Sender: TObject);
begin
w_product:=tw_product.create(self);
w_product.show;
end;

procedure Tw_main.N19Click(Sender: TObject);
begin
w_product_item:=tw_product_item.create(self);
w_product_item.Show;
end;

procedure Tw_main.N17Click(Sender: TObject);
begin
w_workshop_item:=tw_workshop_item.create(self);
w_workshop_item.Show;
end;
procedure Tw_main.N12Click(Sender: TObject);
begin
w_cost_active:=tw_cost_active.create(self);
w_cost_active.show;
end;
procedure Tw_main.N14Click(Sender: TObject);
begin
w_material:=tw_material.create(self);
w_material.show;
end;

procedure Tw_main.N15Click(Sender: TObject);
begin
w_labor:=tw_labor.create(self);
w_labor.show;
end;

procedure Tw_main.N7Click(Sender: TObject);
begin
DataBack:=TDataBack.create(self);
DataBack.show;
end;
procedure Tw_main.N23Click(Sender: TObject);
begin
w_labor_master:=Tw_labor_master.create(self);
w_labor_master.show;
end;
procedure Tw_main.N25Click(Sender: TObject);
begin
w_workshop_master:=tw_workshop_master.create(self);
w_workshop_master.show;
end;
procedure Tw_main.N26Click(Sender: TObject);
begin
w_product_master:=tw_product_master.create(self);
w_product_master.show;
end;

procedure Tw_main.N27Click(Sender: TObject);
begin
w_cost_master:=tw_cost_master.create(self);
w_cost_master.show;
end;
procedure Tw_main.N13Click(Sender: TObject);
begin
w_material_master:=tw_material_master.create(self);
w_material_master.show;
end;
procedure Tw_main.N31Click(Sender: TObject);
begin
form3:=tform3.create(self);
form3.show;
end;

procedure Tw_main.N8Click(Sender: TObject);
begin
N18.Checked := not N18.Checked;
  if N18.Checked then
  begin
    self.AlphaBlend := true;
    self.AlphaBlendValue := 125;
  end
  else
    self.AlphaBlend := false;
end;

procedure Tw_main.N32Click(Sender: TObject);
begin
w_bz:=tw_bz.create(self);
w_bz.show;
end;
end.