unit2_caizepeng042_04.pas

这个是我的数据库的课程设计:超市商品数据管理系统的设计,,采用面向C/S模式的通用开发工具Delphi设计其前台的操作

unit Unit2_caizepeng042_04;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, DB, ADODB, StdCtrls;

type
  TForm2 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    R1: TMenuItem;
    K1: TMenuItem;
    X1: TMenuItem;
    T1: TMenuItem;
    O1: TMenuItem;
    H1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    DataSource1: TDataSource;
    ji1: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    procedure O1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure R1Click(Sender: TObject);
    procedure K1Click(Sender: TObject);
    procedure ji1Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses supplier_caizepeng042_04, Unit1_caizepeng042_04,
  in_master_caizepeng042_04, guanli_caizepeng042_04, money_caizepeng042_04,
  tj_caizepeng042_04, tj2_caizepeng042_04, xiaoshou_caizepeng042_04,
  time_caizepeng042_04;

{$R *.dfm}

procedure TForm2.O1Click(Sender: TObject);
var O:word;
begin
O:=MessageDlg('确定要退出?',mtInformation,[mbYes,mbNo],0);
if O=6 then
begin
close;

with ADOQuery1 do
begin
form1.close;
adoquery1.SQL.Add('update time_caizepeng042_04 set 退出时间=getdate() where 登录时间 in(select max(登录时间) from time_caizepeng042_04)'+'and 姓名='+''''+trim(form1.edit1.Text)+'''');
adoquery1.ExecSQL;

end;
end;
end;

procedure TForm2.N2Click(Sender: TObject);
begin
form3.show
end;

procedure TForm2.R1Click(Sender: TObject);
begin
form4.show
end;

procedure TForm2.K1Click(Sender: TObject);
begin
form5.show
end;

procedure TForm2.ji1Click(Sender: TObject);
begin
form8.show
end;

procedure TForm2.N9Click(Sender: TObject);
begin
form9.show
end;

procedure TForm2.N4Click(Sender: TObject);
begin
form3.show
end;

procedure TForm2.N3Click(Sender: TObject);
begin
form3.show
end;

procedure TForm2.N5Click(Sender: TObject);
begin
form3.show
end;

procedure TForm2.N6Click(Sender: TObject);
begin
form3.show
end;

procedure TForm2.N11Click(Sender: TObject);
begin
form6.show
end;

procedure TForm2.N10Click(Sender: TObject);
begin
form7.show
end;

procedure TForm2.N7Click(Sender: TObject);
begin
showmessage('版权归中南大学信息学院蔡泽鹏所有，版本为试验1.0');
end;

procedure TForm2.N8Click(Sender: TObject);
begin
showmessage('有问题请联系管理员, 电子邮件：[e-mail]');
end;

procedure TForm2.N12Click(Sender: TObject);
begin
form10.show
end;

end.