main_page.~pas

不完备信息的数据发现

unit main_page;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  shellapi,Buttons, Menus, StdCtrls, ExtCtrls, Db, DBTables, jpeg, Mask, DBCtrls,
  ComCtrls, DBClient, Grids, DBGrids,
   ADODB,inifiles, ToolWin, ActnMan, ActnCtrls;

type
  Tmain_pagef = class(TForm)
    Panel4: TPanel;
    panel_main: TPanel;
    SB_CGGL: TSpeedButton;
    SB_KCGL: TSpeedButton;
    Panel8: TPanel;
    Panel5: TPanel;
    Panel_kcgl: TPanel;
    SB_kcyj: TSpeedButton;
    SB_ckgl: TSpeedButton;
    SB_rkgl: TSpeedButton;
    Panel_cggl: TPanel;
    SB_cgjh: TSpeedButton;
    SB_cght: TSpeedButton;
    StatusBar_foot: TStatusBar;
    Image7: TImage;
    SB_kccx: TSpeedButton;
    Panel2: TPanel;
    SB_cgsh: TSpeedButton;
    SpeedButton1: TSpeedButton;
    ADOConn: TADOConnection;
    SB_cgfk: TSpeedButton;
    MainMenu1: TMainMenu;
    Njbxx: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N1: TMenuItem;
    N5: TMenuItem;
    Nrklb: TMenuItem;
    Ncklb: TMenuItem;
    Nhwda: TMenuItem;
    N_chzl: TMenuItem;
    Nchda: TMenuItem;
    Nkcgl: TMenuItem;
    Nrkgl: TMenuItem;
    Nckgl: TMenuItem;
    Nkcyj: TMenuItem;
    Naqkcyj: TMenuItem;
    Nzdkcyj: TMenuItem;
    Nzgkcyj: TMenuItem;
    Nbzqyj: TMenuItem;
    Nkccx: TMenuItem;
    Nkcxclcx: TMenuItem;
    Nrkxxcx: TMenuItem;
    Nckxxcx: TMenuItem;
    Nexit: TMenuItem;
    N4: TMenuItem;
    Ncheck: TMenuItem;
    N6: TMenuItem;
    N8: TMenuItem;
    priceset: TMenuItem;
    sizeset: TMenuItem;
    speedset: TMenuItem;
    procedure FormShow(Sender: TObject);
    procedure SB_tcClick(Sender: TObject);
    procedure NbbxxClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure SB_XXGLClick(Sender: TObject);
    procedure NexitClick(Sender: TObject);
    procedure NdqlbClick(Sender: TObject);
    procedure NgyslbClick(Sender: TObject);
    procedure NgysdaClick(Sender: TObject);
    procedure NckdaClick(Sender: TObject);
    procedure NchlbClick(Sender: TObject);
    procedure NchdaClick(Sender: TObject);
    procedure NrklbClick(Sender: TObject);
    procedure NcklbClick(Sender: TObject);
    procedure NaqkcyjClick(Sender: TObject);
    procedure NzdkcyjClick(Sender: TObject);
    procedure NzgkcyjClick(Sender: TObject);
    procedure NbzqyjClick(Sender: TObject);
    procedure NkcxclcxClick(Sender: TObject);
    procedure NrkxxcxClick(Sender: TObject);
    procedure NckxxcxClick(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure NckglClick(Sender: TObject);
    procedure ADOConnBeforeConnect(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SB_KCGLClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N1Click(Sender: TObject);
    procedure SB_CGGLClick(Sender: TObject);
    procedure N2dqbhvarchar1001Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure NcheckClick(Sender: TObject);
    procedure pricesetClick(Sender: TObject);
    procedure sizesetClick(Sender: TObject);
    procedure speedsetClick(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }

  end;

var
  main_pagef: Tmain_pagef;
  V_DataBaseName, ConnectString: string;
implementation
uses dm,ldqlb, lgyslb, lgysda, lrklb, lproductinfo, de,price, lsizeset,
  lspeed;

{$R *.DFM}





procedure Tmain_pagef.FormShow(Sender: TObject);
begin
  top:=0;
  left:=0;
  panel_cggl.Hide;
  panel_kcgl.Show;
  //设置颜色
  main_pagef.Color:=color_StatusBar;
  StatusBar_foot.Color:=color_form;
end;

procedure Tmain_pagef.SB_tcClick(Sender: TObject);
begin
  close;
end;

procedure Tmain_pagef.NbbxxClick(Sender: TObject);
begin
{  Aboutf:=TAboutf.Create(nil);
  with Aboutf do
   try
    ShowModal;
   finally
    Free;
   end;  }
end;

procedure Tmain_pagef.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if MessageBox(Handle,'请确认退出本系统？','提示信息',MB_ICONWARNING or MB_OKCANCEL )=IDOK then
    CanClose:=True
  else
    CanClose:=False;
end;

procedure Tmain_pagef.SB_XXGLClick(Sender: TObject);
begin
  panel_cggl.Show;
  panel_kcgl.Hide;

end;

procedure Tmain_pagef.NexitClick(Sender: TObject);
begin
  close;
end;

procedure Tmain_pagef.NdqlbClick(Sender: TObject);
begin
  ldqlbf:=Tldqlbf.Create(nil);
  with ldqlbf do
   try
    ShowModal;
   finally
    Free;
   end;
end;

procedure Tmain_pagef.NgyslbClick(Sender: TObject);
begin

{  lgyslbf:=Tlgyslbf.Create(nil);
  with lgyslbf do
   try
    ShowModal;
   finally
    Free;
   end;  }
end;

procedure Tmain_pagef.NgysdaClick(Sender: TObject);
begin
{  lgysdaf:=Tlgysdaf.Create(nil);
  with lgysdaf do
   try
    ShowModal;
   finally
    Free;
   end;   }
end;

procedure Tmain_pagef.NckdaClick(Sender: TObject);
begin

{  lckdaf:=Tlckdaf.Create(nil);
  with lckdaf do
   try
    ShowModal;
   finally
    Free;
   end;  }
end;

procedure Tmain_pagef.NchlbClick(Sender: TObject);
begin

{  lchlbf:=Tlchlbf.Create(nil);
  with lchlbf do
   try
    ShowModal;
   finally
    Free;
   end; }
end;

procedure Tmain_pagef.NchdaClick(Sender: TObject);
begin

{  lchdaf:=Tlchdaf.Create(nil);
  with lchdaf do
   try
    ShowModal;
   finally
    Free;
   end;   }
end;

procedure Tmain_pagef.NrklbClick(Sender: TObject);
begin
  lrklbf:=Tlrklbf.Create(nil);
  with lrklbf do
   try
    ShowModal;
   finally
    Free;
   end;
end;

procedure Tmain_pagef.NcklbClick(Sender: TObject);
begin
{  lcklbf:=Tlcklbf.Create(nil);
  with lcklbf do
   try
    ShowModal;
   finally
    Free;
   end; }
end;

procedure Tmain_pagef.NaqkcyjClick(Sender: TObject);
begin
{  ckcaqf:=Tckcaqf.Create(nil);
  with ckcaqf do
   try
    ShowModal;
   finally
    Free;
   end; }  
end;

procedure Tmain_pagef.NzdkcyjClick(Sender: TObject);
begin
{  ckczdf:=Tckczdf.Create(nil);
  with ckczdf do
   try
    ShowModal;
   finally
    Free;
   end; }
end;

procedure Tmain_pagef.NzgkcyjClick(Sender: TObject);
begin
{  ckczgf:=Tckczgf.Create(nil);
  with ckczgf do
   try
    ShowModal;
   finally
    Free;
   end;  }
end;

procedure Tmain_pagef.NbzqyjClick(Sender: TObject);
begin
{  ckcbzqf:=Tckcbzqf.Create(nil);
  with ckcbzqf do
   try
    ShowModal;
   finally
    Free;
   end; }
end;

procedure Tmain_pagef.NkcxclcxClick(Sender: TObject);
begin
{  ckcxclf:=Tckcxclf.Create(nil);
  with ckcxclf do
  try
    ShowModal;
  finally
    Free;
  end; }
end;

procedure Tmain_pagef.NrkxxcxClick(Sender: TObject);
begin
{  crkdxxf:=Tcrkdxxf.Create(nil);
  with crkdxxf do
   try
    ShowModal;
   finally
    Free;
   end; }
end;

procedure Tmain_pagef.NckxxcxClick(Sender: TObject);
begin
{  cckdxxf:=Tcckdxxf.Create(nil);
  with cckdxxf do
   try
    ShowModal;
   finally
    Free;
   end; }
end;

procedure Tmain_pagef.N38Click(Sender: TObject);
begin
{  tgrxhtjf:=Ttgrxhtjf.Create(nil);
  with tgrxhtjf do
  try
    ShowModal;
  finally
    Free;
  end;  }
end;

procedure Tmain_pagef.NckglClick(Sender: TObject);
begin
{  lxsckf:=Tlxsckf.Create(nil);
  with lxsckf do
   try
    ShowModal;
   finally
    Free;
   end;  }
end;

procedure Tmain_pagef.ADOConnBeforeConnect(Sender: TObject);
begin
 try
    ADOConn.ConnectionString := ConnectString;
  except
    MessageBox(Handle, '连接服务器失败!', '提示信息', MB_ICONSTOP or MB_OK);
  end;
end;

procedure Tmain_pagef.FormCreate(Sender: TObject);
var inifile1: tinifile;
  fullname, v_servername, v_userName, v_PassWord: string;
begin
  if fileexists('server.ini') then
  begin
    fullname := ExtractFilePath(Application.ExeName);
    fullname := fullname + '\server.ini';
    inifile1 := tinifile.Create(fullname);
    v_servername := inifile1.readstring('Database', 'ServerName', 'error');
    V_DataBaseName := inifile1.readstring('Database', 'DatabaseName', 'error');
    v_userName := inifile1.readstring('Database', 'userName', 'error');
    v_PassWord := inifile1.readstring('Database', 'PassWord', 'error');
    ConnectString := 'Provider=SQLOLEDB.1;Password=' + v_PassWord + ';';
    ConnectString := ConnectString + 'Persist Security Info=True;User ID=' + v_userName + ';';
    ConnectString := ConnectString + 'Initial Catalog=' + V_DataBaseName + ';';
    ConnectString := ConnectString + 'Data Source=' + v_servername + ';';
    ConnectString := ConnectString + 'Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096';
    inifile1.Free;
  end;
    DatabaseName:=V_DataBaseName+'.dbo.';
    ADOConn.Connected:=True;
end;

procedure Tmain_pagef.SB_KCGLClick(Sender: TObject);
begin
  panel_cggl.Hide;
  panel_kcgl.Show;
end;

procedure Tmain_pagef.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ADOConn.Connected:=False;
end;

procedure Tmain_pagef.N1Click(Sender: TObject);
begin
 {  lkhdaf:=Tlkhdaf.Create(nil);
  with lkhdaf do
   try
    ShowModal;
   finally
    Free;
   end; }
end;

procedure Tmain_pagef.SB_CGGLClick(Sender: TObject);
begin
  panel_cggl.Show;
  panel_kcgl.Hide;
end;

procedure Tmain_pagef.N2dqbhvarchar1001Click(Sender: TObject);
begin
  ldqlbf:=Tldqlbf.Create(nil);
  with ldqlbf do
   try
    ShowModal;
   finally
    Free;
   end;
end;

procedure Tmain_pagef.N2Click(Sender: TObject);
begin
 lgyslbf:=Tlgyslbf.Create(nil);
  with lgyslbf do
   try
    ShowModal;
   finally
    Free;
   end;
end;

procedure Tmain_pagef.N3Click(Sender: TObject);
begin
  lgysdaf:=Tlgysdaf.Create(nil);
  with lgysdaf do
   try
    ShowModal;
   finally
    Free;
   end;
end;

procedure Tmain_pagef.N4Click(Sender: TObject);
begin
  lproductinfof:=Tlproductinfof.Create(nil);
  with lproductinfof do
   try
    ShowModal;
   finally
    Free;
   end;

end;

procedure Tmain_pagef.NcheckClick(Sender: TObject);
begin
  def:=Tdef.Create(nil);
  with def do
   try
    ShowModal;
   finally
    Free;
   end;

end;
procedure Tmain_pagef.pricesetClick(Sender: TObject);
begin
  pricef:=Tpricef.Create(nil);
  with pricef do
   try
    ShowModal;
   finally
    Free;
   end;
end;

procedure Tmain_pagef.sizesetClick(Sender: TObject);
begin
  lsizesetf:=Tlsizesetf.Create(nil);
  with lsizesetf do
   try
    ShowModal;
   finally
    Free;
   end;
end;

procedure Tmain_pagef.speedsetClick(Sender: TObject);
begin
  lspeedf:=Tlspeedf.Create(nil);
  with lspeedf do
   try
    ShowModal;
   finally
    Free;
   end;
end;
end.