unit1.pas

应对服装行业的生产成本控制系统

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, ToolWin, ActnMan, ActnCtrls, ComCtrls, ImgList,
  jpeg, StdCtrls, Buttons,StrUtils;

type
  TForm1 = class(TForm)
    MM1: TMainMenu;
    N1: TMenuItem;
    r1: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N4: TMenuItem;
    N2: TMenuItem;
    N20: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N34: TMenuItem;
    N40: TMenuItem;
    N61: TMenuItem;
    N63: TMenuItem;
    N88: TMenuItem;
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    T11: TToolButton;
    T14: TToolButton;
    ToolButton1: TToolButton;
    T21: TToolButton;
    ToolButton2: TToolButton;
    T24: TToolButton;
    T31: TToolButton;
    ToolButton5: TToolButton;
    Image1: TImage;
    T41: TToolButton;
    T44: TToolButton;
    ToolButton6: TToolButton;
    TB8: TToolButton;
    ToolButton7: TToolButton;
    Timer1: TTimer;
    T34: TToolButton;
    OpenDialog1: TOpenDialog;
    SpeedButton1: TSpeedButton;
    tbh: TEdit;
    N68: TMenuItem;
    N39: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N50: TMenuItem;
    N73: TMenuItem;
    N74: TMenuItem;
    N75: TMenuItem;
    N62: TMenuItem;
    N99: TMenuItem;
    N98: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    N55: TMenuItem;
    N69: TMenuItem;
    N33: TMenuItem;
    Panel2: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label1: TLabel;
    T51: TToolButton;
    ToolButton4: TToolButton;
    T54: TToolButton;
    N72: TMenuItem;
    N71: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N56: TMenuItem;
    N57: TMenuItem;
    N58: TMenuItem;
    N59: TMenuItem;
    N510: TMenuItem;
    N511: TMenuItem;
    N512: TMenuItem;
    N513: TMenuItem;
    N54: TMenuItem;
    N64: TMenuItem;
    N29: TMenuItem;
    N210: TMenuItem;
    N211: TMenuItem;
    N212: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    procedure TB8Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Panel2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N210Click(Sender: TObject);
    procedure N211Click(Sender: TObject);
    procedure N212Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N51Click(Sender: TObject);
    procedure N52Click(Sender: TObject);
    procedure N53Click(Sender: TObject);
    procedure N54Click(Sender: TObject);
    procedure N55Click(Sender: TObject);
    procedure N56Click(Sender: TObject);
    procedure N57Click(Sender: TObject);
    procedure N58Click(Sender: TObject);
    procedure N59Click(Sender: TObject);
    procedure N510Click(Sender: TObject);
    procedure N511Click(Sender: TObject);
    procedure N512Click(Sender: TObject);
    procedure N513Click(Sender: TObject);
    procedure N75Click(Sender: TObject);
    procedure N74Click(Sender: TObject);
    procedure N71Click(Sender: TObject);
    procedure N72Click(Sender: TObject);
    procedure N73Click(Sender: TObject);
    procedure N61Click(Sender: TObject);
    procedure N62Click(Sender: TObject);
    procedure N63Click(Sender: TObject);
    procedure N64Click(Sender: TObject);
  private
    rzczy,rzsj,rzjsj,rzcsj:string;
  N:INTEGER;
  ss: string;
i,i1,i2: integer;
    { Private declarations }
  public
//    kz1,kz2:boolean;
 print,excel:boolean;
 randombh:string;
 kh,cpmc,cpfl,cpdw,gh,yg,fb,fz,clmc,clfl,cldw,ddh,gxmc,dj,fylb:string;
     function dorandombh():boolean;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit16, Unit26, Unit25, dd, ddwh, ddsh, ddcx, dhcl, gx, bh, lld,
  lldwh, lldsh, lldcx, ylzj, ylzjwh, ylzjsh, ylzjcx, cc, ccwh, ccsh, cccx,
  cllr, cllrwh, cllrsh, cllrcx, ddch, ddchwh, ddchsh, ddchcx, fy, glfywh,
  glfysh, glfycx, jbgx, fylb, jglx, wjgdw, fb, fz, yg, clfl, cldw, clml,
  cpfl, cpdw, cpml, Unit2, Unit22, gxgx, xtfz, ddcb, ddsdcb, ddsdllbl;

  {$R *.dfm}

procedure TForm1.TB8Click(Sender: TObject);
begin
rzcsj:=datetimetostr(now);
form16.WriteTorz(rzczy,rzsj,rzjsj,rzcsj);
form26.deleteusers;
form26.Close;
form25.Close;
close;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
N:=N+1;
if label1.Font.Color=clBlack then
begin
     label1.Color :=clWhite;
     label2.Color :=clWhite;
     label3.Color :=clWhite;
     label4.Color :=clWhite;
label1.Font.Color :=clRed;
label2.Font.Color :=clRed;
label3.Font.Color :=clRed;
label4.Font.Color :=clRed;
Panel2.Color:= clRed;
//panel2.BevelInner:=bvLowered;
//panel2.BevelOuter:=bvLowered;
panel2.BorderStyle:=bsnone;
end
       else
       begin
       IF N>20 THEN EXIT;
     label1.Color :=clRed;
     label2.Color :=clRed;
     label3.Color :=clRed;
     label4.Color :=clRed;
   label1.Font.Color:=clBlack;
   label2.Font.Color:=clBlack;
   label3.Font.Color:=clBlack;
   label4.Font.Color:=clBlack;
    //Panel2.Color:=clWhite;
   // panel2.BevelInner:=bvnone;
   // panel2.BevelOuter:=bvnone;
    panel2.BorderStyle:=bsSingle;
   end
end;
procedure TForm1.Panel2Click(Sender: TObject);
begin
timer1.Enabled:=false;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
kh:='';
cpmc:='';
cpfl:='';
cpdw:='';
yg:='';
fb:='';
fz:='';
clmc:='';
clfl:='';
cldw:='';
ddh:='';
gxmc:='';
dj:='';
fylb:='';
StatusBar1.Panels[5].Text:='登录时间：'+datetimetostr(now);
rzjsj:=datetimetostr(now);
rzczy:=form1.StatusBar1.Panels[4].Text;
rzsj:='进入与退出系统时间';
rzcsj:='';
N:=0;
i:=0;
i2:=0;
i1:=length(ss);
i1:=i1 div 2;
label1.Caption:=midstr(form1.StatusBar1.Panels[4].Text,1,1);
label2.Caption:=midstr(form1.StatusBar1.Panels[4].Text,2,1);
label3.Caption:=midstr(form1.StatusBar1.Panels[4].Text,3,1);
t11.Enabled:=n11.Enabled;
t14.Enabled:=n14.Enabled;
t21.Enabled:=n21.Enabled;
t24.Enabled:=n24.Enabled;
t31.Enabled:=n31.Enabled;
t34.Enabled:=n34.Enabled;
t41.Enabled:=n41.Enabled;
t44.Enabled:=n44.Enabled;
t51.Enabled:=n61.Enabled;
t54.Enabled:=n72.Enabled;
//FORM1.Visible:=FALSE;
//FORM25.ShowModal;
//FORM1.Visible:=FALSE;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
picname: string;
begin
try
opendialog1.Filter:='图像文件 (*.bmp) │*.bmp│*.jpg';
if opendialog1.Execute then
picname:=opendialog1.FileName;
if length(picname)>0 then
begin
Image1.Picture.LoadFromFile(picname);
exit;
end;
except
showmessage('图片没有被打开，图片类型不对或图片不存在!');
 end;
 end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form26.deleteusers;
form26.Close;
if rzcsj='' then
begin
rzcsj:=datetimetostr(now);
form16.WriteTorz(rzczy,rzsj,rzjsj,rzcsj);
end;
form25.Close;
close;
end;

function  tform1.dorandombh:boolean;
var
i:integer;
begin
randombh:='';
randomize;
for i:=1 to 6 do
begin
randombh:=randombh+floattostr(random(10));
end;
end;

procedure TForm1.N11Click(Sender: TObject);
begin
frmdd.ShowModal;
end;

procedure TForm1.N12Click(Sender: TObject);
begin
frmddwh.showmodal;
end;

procedure TForm1.N13Click(Sender: TObject);
begin
frmddsh.showmodal;
end;

procedure TForm1.N14Click(Sender: TObject);
begin
frmddcx.showmodal;
end;

procedure TForm1.N15Click(Sender: TObject);
begin
frmdhcl.showmodal;
end;

procedure TForm1.N16Click(Sender: TObject);
begin
frmgx.showmodal;
end;

procedure TForm1.N17Click(Sender: TObject);
begin
frmbh.showmodal;
end;

procedure TForm1.N21Click(Sender: TObject);
begin
frmlld.showmodal;
end;

procedure TForm1.N22Click(Sender: TObject);
begin
frmlldwh.showmodal;
end;

procedure TForm1.N23Click(Sender: TObject);
begin
frmlldsh.showmodal;
end;

procedure TForm1.N24Click(Sender: TObject);
begin
frmlldcx.showmodal;
end;

procedure TForm1.N25Click(Sender: TObject);
begin
frmylzj.showmodal;
end;

procedure TForm1.N26Click(Sender: TObject);
begin
frmylzjwh.showmodal;
end;

procedure TForm1.N27Click(Sender: TObject);
begin
frmylzjsh.showmodal;
end;

procedure TForm1.N28Click(Sender: TObject);
begin
frmylzjcx.showmodal;
end;

procedure TForm1.N29Click(Sender: TObject);
begin
frmcc.showmodal;
end;

procedure TForm1.N210Click(Sender: TObject);
begin
frmccwh.showmodal;
end;

procedure TForm1.N211Click(Sender: TObject);
begin
frmccsh.showmodal;
end;

procedure TForm1.N212Click(Sender: TObject);
begin
frmcccx.showmodal;
end;

procedure TForm1.N31Click(Sender: TObject);
begin
frmcllr.showmodal;
end;

procedure TForm1.N32Click(Sender: TObject);
begin
frmcllrwh.showmodal;
end;

procedure TForm1.N33Click(Sender: TObject);
begin
frmcllrsh.showmodal;
end;

procedure TForm1.N34Click(Sender: TObject);
begin
frmcllrcx.showmodal;
end;

procedure TForm1.N35Click(Sender: TObject);
begin
frmddch.showmodal;
end;

procedure TForm1.N36Click(Sender: TObject);
begin
frmddchwh.showmodal;
end;

procedure TForm1.N37Click(Sender: TObject);
begin
frmddchsh.showmodal;
end;

procedure TForm1.N38Click(Sender: TObject);
begin
frmddchcx.showmodal;
end;

procedure TForm1.N41Click(Sender: TObject);
begin
frmfy.showmodal;
end;

procedure TForm1.N42Click(Sender: TObject);
begin
frmglfywh.showmodal;
end;

procedure TForm1.N43Click(Sender: TObject);
begin
frmglfysh.showmodal;
end;

procedure TForm1.N44Click(Sender: TObject);
begin
frmglfycx.showmodal;
end;

procedure TForm1.N51Click(Sender: TObject);
begin
frmjbgx.showmodal;
end;

procedure TForm1.N52Click(Sender: TObject);
begin
frmfylb.showmodal;
end;

procedure TForm1.N53Click(Sender: TObject);
begin
frmjglx.showmodal;
end;

procedure TForm1.N54Click(Sender: TObject);
begin
frmwjgdw.showmodal;
end;

procedure TForm1.N55Click(Sender: TObject);
begin
frmfb.showmodal;
end;

procedure TForm1.N56Click(Sender: TObject);
begin
frmfz.showmodal;
end;

procedure TForm1.N57Click(Sender: TObject);
begin
frmyg.showmodal;
end;

procedure TForm1.N58Click(Sender: TObject);
begin
frmclfl.showmodal;
end;

procedure TForm1.N59Click(Sender: TObject);
begin
frmcldw.showmodal;
end;

procedure TForm1.N510Click(Sender: TObject);
begin
frmclml.showmodal;
end;

procedure TForm1.N511Click(Sender: TObject);
begin
frmcpfl.showmodal;
end;

procedure TForm1.N512Click(Sender: TObject);
begin
frmcpdw.showmodal;
end;

procedure TForm1.N513Click(Sender: TObject);
begin
frmcpml.showmodal;
end;

procedure TForm1.N75Click(Sender: TObject);
begin
form2.showmodal;
end;

procedure TForm1.N74Click(Sender: TObject);
begin
form16.ShowModal;
end;

procedure TForm1.N71Click(Sender: TObject);
begin
form22.showmodal;
end;

procedure TForm1.N72Click(Sender: TObject);
begin
frmgxgx.showmodal;
end;

procedure TForm1.N73Click(Sender: TObject);
begin
frmxtfz.showmodal;
end;



procedure TForm1.N61Click(Sender: TObject);
begin
frmddcb.showmodal;
end;

procedure TForm1.N62Click(Sender: TObject);
begin
frmddsdcb.showmodal;
end;

procedure TForm1.N63Click(Sender: TObject);
begin
frmddllbl.showmodal;
end;

procedure TForm1.N64Click(Sender: TObject);
begin
frmddllbl.showmodal;
end;

end.