unit2.~pas

这是本人网络数据库实习的程序,编程语言选择DELPHI7.0,完全个人编写.本程序一些界面还不够完善,功能不大,还有很多地方需要改进,望有兴趣的朋友一起探讨或通过电子邮箱与我联系!

unit Unit2;

interface

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

type
  Tmain = class(TForm)
    MainMenu1: TMainMenu;
    cz: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N8: TMenuItem;
    dy: TMenuItem;
    tj: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N7: TMenuItem;
    gly: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Label4: TLabel;
    bz: TMenuItem;
    N4: TMenuItem;
    Label5: TLabel;
    Label6: TLabel;
    N14: TMenuItem;
    ADOQuery1: TADOQuery;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label3: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    ComboBox2: TComboBox;
    Button4: TButton;
    N5: TMenuItem;
    procedure N8Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure dyClick(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main: Tmain;
implementation
 uses unit1,unit3,unit4,unit5,unit6,unit7,unit8,unit9;
{$R *.dfm}

procedure Tmain.N8Click(Sender: TObject);
begin
  if application.MessageBox('      确定退出吗?  ','退出',1)=1 then
    application.Terminate;
end;

procedure Tmain.N7Click(Sender: TObject);
begin
  if application.MessageBox('     确定注销吗?   ','注销',1)=1 then
    begin
    main.Close;
    login.Show;
    login.Edit1.Text:='';
    login.Edit2.Text:='';
    login.Edit1.SetFocus;
    end;
end;

procedure Tmain.Label1Click(Sender: TObject);
begin
  regester.Show;
  main.Hide;
end;

procedure Tmain.N1Click(Sender: TObject);
begin
  dadd.Show;
  main.Hide;
  dadd.Edit1.Text:='';dadd.Edit2.Text:='';dadd.edit3.Text:='';dadd.Edit4.Text:='';dadd.Edit1.SetFocus;
end;

procedure Tmain.N2Click(Sender: TObject);
begin
  moddel.Button1.Enabled :=true;
  moddel.Button2.Enabled :=false;
  ADOquery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from 报刊信息');
  ADOQuery1.Open;
  moddel.ShowModal;
end;

procedure Tmain.N3Click(Sender: TObject);
begin
  moddel.Button1.Enabled :=false;
  moddel.Button2.Enabled :=true;
  ADOquery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from 报刊信息');
  ADOQuery1.Open;
  moddel.ShowModal;
end;

procedure Tmain.ComboBox1Change(Sender: TObject);
begin
  with adoquery1 do
    begin
    sql.Clear;
    sql.Add('select * from 报刊信息');
    if combobox1.Text<>'所有报刊' then
      sql.Add(format(' where (所属类型=''%s'')',[trim(combobox1.Text)]));
    open;
    end;
end;

procedure Tmain.N4Click(Sender: TObject);
begin
  users.Caption:='用户操作';
  users.Show;
  main.Hide;
end;

procedure Tmain.Button1Click(Sender: TObject);
begin
  with adoquery1 do
    begin
      sql.Clear;
      sql.Add('select * from 报刊信息');
      sql.Add(format(' where (%s',[trim(combobox2.Text)]));
      sql.Add(format(' = ''%s'')',[trim(edit1.Text)]));
      open;
    end;
  if adoquery1.RecordCount<1 then
    showmessage('无此报刊!请确认是否输入正确!');  
end;

procedure Tmain.Button4Click(Sender: TObject);
begin
  with adoquery1 do
    begin
    sql.Clear;
    sql.Add('select * from 报刊信息');
    sql.Add(format(' where (%s',[trim(combobox2.Text)]));
    sql.Add(format(' like ''%s'')',[trim(edit1.Text)]));
    if RadioButton1.Checked then
      sql.Add(format(' and (所属类型=''%s'')',[trim(combobox1.Text)]));
    open;
    end;
  if ADOQuery1.RecordCount<1 then
    showmessage('无此报刊!请确认是否输入正确!');
end;

procedure Tmain.Button2Click(Sender: TObject);
begin
  welcom.ShowModal;
end;

procedure Tmain.N14Click(Sender: TObject);
begin
  users.Caption:='人员查询';
  users.Show;
  main.Hide;
end;

procedure Tmain.dyClick(Sender: TObject);
begin
  with welcom.adoquery1 do
    begin
    sql.Clear;
    sql.Add('select 订单编号,订单信息.报刊代号,起订日期,结束日期,份数,总额 from 订单信息,报刊信息,用户信息 where 报刊信息.报刊代号=订单信息.报刊代号 and  订单信息.客户编号 = 用户信息.用户编号 ');
    sql.Add(format(' and 用户信息.用户名 = ''%s''',[(login.Edit1.Text)]));
    open;
    end;
  with welcom.ADOQuery2 do
    begin
    sql.clear;
    sql.add('select 报刊信息.报刊代号,报刊名称,刊期,整订期,整订价,全年价,所属类型 from 报刊信息,订单信息,用户信息 where 报刊信息.报刊代号=订单信息.报刊代号 and 订单信息.客户编号 = 用户信息.用户编号');
    sql.Add(format(' and 用户信息.用户名 = ''%s''',[(login.Edit1.Text)]));
    open;
    end;
  welcom.Show;
  main.Hide;
end;

procedure Tmain.N5Click(Sender: TObject);
begin
  if main.Label6.Caption='游客' then
    begin
    showmessage('对不起，您暂时还没有注册！');
    exit;
    end
  else
    begin
    mmxg.Edit1.Text:='';
    mmxg.Edit2.Text:='';
    mmxg.Edit3.Text:='';
    mmxg.ShowModal;
    end;

end;

procedure Tmain.N9Click(Sender: TObject);
var
  num:integer;
begin
  num:=0;
  with login do
    begin
    adotable1.First;
    if adotable1.FieldByName('权限').AsString='普通用户' then
      num:=num+1;
    adotable1.Next;
    end;
  bktj.Caption:='人员统计';
  bktj.Label1.Caption:='现有人员：';
  bktj.Label6.Caption:= '总共有 ' +inttostr(login.ADOTable1.RecordCount) +'名人员';
  bktj.Label2.Caption:='管理员：';
  bktj.Label3.Caption:=inttostr(num)+'  名';
  bktj.Label4.Visible:=true;
  bktj.Label5.Visible:=true;
  bktj.Label4.Caption:='普通用户：';
  bktj.Label5.Caption:=inttostr(login.ADOTable1.RecordCount-num)+'  名';
  bktj.Label7.Visible:=false;
  bktj.DBGrid1.Visible:=false;
  bktj.ShowModal;
end;

procedure Tmain.N11Click(Sender: TObject);
var
  i:integer;
  sum:Currency;
begin
  sum:=0.00;
  with welcom do
    begin
    adotable1.First;
    for i:=1 to adotable1.RecordCount do
      begin
      if adotable1.FieldByName('客户编号').AsInteger=number then
        sum:=sum+adotable1.FieldByName('总额').AsCurrency;
      adotable1.Next;
      end;
    end;
  if sum=0 then
    begin
    showmessage('您暂时还没有订阅报刊!');
    end;
  bktj.Caption:='金额查看';
  bktj.Label1.Caption:='当前用户：';
  bktj.Label6.Caption:=username;
  bktj.Label2.Caption:='需支付金额：';
  bktj.Label3.Caption:=floattostr(sum)+'元';
  bktj.Label4.Visible:=false;
  bktj.Label5.Visible:=false;
  bktj.Label7.Visible:=false;
  bktj.DBGrid1.Visible:=false;
  bktj.ShowModal;
end;

procedure Tmain.N10Click(Sender: TObject);
begin
  with bktj do
    begin
    Label7.Visible:=true;
    DBGrid1.Visible:=true;
    adoquery1.SQL.Clear;
    adoquery1.SQL.Add('select 报刊统计.报刊代号,报刊名称,份数 from 报刊统计,报刊信息 where 报刊统计.报刊代号=报刊信息.报刊代号 order by 份数 desc');
    adoquery1.Open;
    ShowModal;
    end;
end;

end.