unit1.pas

利用delphi编写的原代码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ToolWin, ImgList, DB, ADODB;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N9: TMenuItem;
    ImageList1: TImageList;
    ADOConnection1: TADOConnection;
    ImageList2: TImageList;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton3: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton9: TToolButton;
    ToolButton12: TToolButton;
    ToolButton14: TToolButton;
    ToolButton17: TToolButton;
    ToolButton11: TToolButton;
    StatusBar1: TStatusBar;
    ToolButton2: TToolButton;
    procedure ToolButton20Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    combobox_1,combobox:array of string;    //类别选择下拉列表框用
    stringlength_1,stringlength:integer;
    leibie_num_1,leibie_num:string;
  end;

var
  Form1: TForm1;
  Form_show:Boolean;
  xinleibie_show:Boolean;

implementation

{$R *.dfm}
uses unit2,unit3,unit4,unit7,unit8;

procedure TForm1.ToolButton20Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.FormShow(Sender: TObject);
var
  LoginForm:Tform2;
begin
  LoginForm:=Tform2.Create(self);
  LoginForm.ShowModal;
end;

procedure TForm1.N21Click(Sender: TObject);
var
  GLYForm:Tform3;
begin
  if not Form_show then
    begin
     GLYForm:=Tform3.Create(application);
     GLYForm.Caption:='操作员管理';
     GLYForm.PageControl1.ActivePageIndex:=0;
     GlYForm.show;
    end
    else
      messagedlg('打开新窗口前请关闭当前窗口!',mtwarning,[mbok],0);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form_show:=False;
  SetLength(combobox,100);
  SetLength(combobox_1,100);
  stringlength_1:=0;
  stringlength:=0;

  StatusBar1.Panels[0].Text:='                      '+datetostr(date());
  StatusBar1.Panels[1].Text:='                      作者：高健       电子邮件：[e-mail]'

end;

procedure TForm1.N22Click(Sender: TObject);
var
  GLYForm:Tform3;
begin
  if not Form_show then
    begin
     GLYForm:=Tform3.Create(application);
     GLYForm.Caption:='操作员管理';
     GLYForm.PageControl1.ActivePageIndex:=1;
     GlYForm.show;
    end
    else
      messagedlg('打开新窗口前请关闭当前窗口!',mtwarning,[mbok],0);

end;
procedure TForm1.N10Click(Sender: TObject);
var
  xinshuguanli:Tform4;
begin
  if not Form_show then
    begin
    xinshuguanli:=Tform4.Create(application);
    xinshuguanli.PageControl1.ActivePageIndex:=0;
    xinshuguanli.Show;
    end
  else
    messagedlg('打开新窗口前请关闭当前窗口!',mtwarning,[mbok],0);
end;

procedure TForm1.N11Click(Sender: TObject);
var
  xinshuguanli:Tform4;
begin
  if not Form_show then
    begin
    xinshuguanli:=Tform4.Create(application);
    xinshuguanli.PageControl1.ActivePageIndex:=1;
    xinshuguanli.Show;
    end
  else
    messagedlg('打开新窗口前请关闭当前窗口!',mtwarning,[mbok],0);
end;
procedure TForm1.N9Click(Sender: TObject);
var
  xinshuguanli:Tform4;
begin
  if not Form_show then
    begin
    xinshuguanli:=Tform4.Create(application);
    xinshuguanli.PageControl1.ActivePageIndex:=2;
    xinshuguanli.Show;
    end
  else
    messagedlg('打开新窗口前请关闭当前窗口!',mtwarning,[mbok],0);
end;

procedure TForm1.N7Click(Sender: TObject);
var
  Jiehuan_Form:Tform7;
begin
   if not Form_show then
    begin
    Jiehuan_Form:=Tform7.Create(application);
    Jiehuan_Form.PageControl1.ActivePageIndex:=0;
    Jiehuan_Form.Show;
    end
  else
    messagedlg('打开新窗口前请关闭当前窗口!',mtwarning,[mbok],0);

end;

procedure TForm1.N6Click(Sender: TObject);
var
  Jiehuan_Form:Tform7;
begin
   if not Form_show then
    begin
    Jiehuan_Form:=Tform7.Create(application);
    Jiehuan_Form.PageControl1.ActivePageIndex:=1;
    Jiehuan_Form.Show;
    end
  else
    messagedlg('打开新窗口前请关闭当前窗口!',mtwarning,[mbok],0);

end;

procedure TForm1.N8Click(Sender: TObject);
var
  Jiehuan_Form:Tform7;
begin
   if not Form_show then
    begin
    Jiehuan_Form:=Tform7.Create(application);
    Jiehuan_Form.PageControl1.ActivePageIndex:=2;
    Jiehuan_Form.Show;
    end
  else
    messagedlg('打开新窗口前请关闭当前窗口!',mtwarning,[mbok],0);

end;

procedure TForm1.N13Click(Sender: TObject);
var
  Jiehuan_Form:Tform7;
begin
   if not Form_show then
    begin
    Jiehuan_Form:=Tform7.Create(application);
    Jiehuan_Form.PageControl1.ActivePageIndex:=3;
    Jiehuan_Form.Show;
    end
  else
    messagedlg('打开新窗口前请关闭当前窗口!',mtwarning,[mbok],0);

end;

procedure TForm1.ToolButton2Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.N14Click(Sender: TObject);
var
  ducx_Form:Tform8;
begin
   if not Form_show then
    begin
    ducx_Form:=Tform8.Create(application);
    ducx_Form.Show;
    end
  else
    messagedlg('打开新窗口前请关闭当前窗口!',mtwarning,[mbok],0);

end;

end.