ckglxt.~pas

《仓库管理系统》 开发语言：Delphi7.0 数据库：SQLServer2000 数据库文件：仓库管理系统_Data.MDF,仓库管理系统_Log.LDF(mingrisoft仓库管理系统Da

unit ckglxt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, Menus, StdCtrls, ExtCtrls, ImgList,xtdl;

type
  TForm88 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N5: TMenuItem;
    N9: TMenuItem;
    N15: TMenuItem;
    N11: TMenuItem;
    N2: TMenuItem;
    N10: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    TreeView1: TTreeView;
    Splitter1: TSplitter;
    ImageList2: TImageList;
    N13: TMenuItem;
    N14: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N12: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    ListView1: TListView;
    ImageList1: TImageList;
    k1: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    StatusBar1: TStatusBar;
    J1: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N23: TMenuItem;
    C1: TMenuItem;
    N24: TMenuItem;
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    Procedure AddItem(Caption: String);
    procedure TreeView1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form88: TForm88;
  List1: TListItem;
  czy: String = '';
implementation

uses rkglxt, rkthxt, spckgl, kcjgtz, pdbscl, pdbyxt, kcsxx, sprkcxgl,tjyusc,
  sprkthcs, kccxgl, kcsxxcx, spckcx, spbscxgl, spbycx,spjcxxgl,gcsxxgl,sprubb,gyswljkgl,
  gyswldzgl,cqfkcx;

{$R *.dfm}
procedure TForm88.N13Click(Sender: TObject);
begin
  Application.CreateForm(TForm12,Form12);
  Form12.ShowModal;
  Form12.Free;
end;

procedure TForm88.N14Click(Sender: TObject);
begin
  Application.CreateForm(TForm14,Form14);
  Form14.ShowModal;
  Form14.Free;
end;

procedure TForm88.N7Click(Sender: TObject);
begin
  Application.CreateForm(TForm35,Form35);
  Form35.ShowModal;
  Form35.Free;
end;

procedure TForm88.N8Click(Sender: TObject);
begin
  Application.CreateForm(TForm34,Form34);
  Form34.ShowModal;
  Form34.Free;
end;

procedure TForm88.N9Click(Sender: TObject);
begin
  Application.CreateForm(TForm18,Form18);
  Form18.ShowModal;
  Form18.Free;
end;

procedure TForm88.N15Click(Sender: TObject);
begin
  Application.CreateForm(TForm19,Form19);
  Form19.ShowModal;
  Form19.Free;
end;

procedure TForm88.N2Click(Sender: TObject);
begin
  Application.CreateForm(TForm20,Form20);
  Form20.ShowModal;
  Form20.Free;
end;

procedure TForm88.N3Click(Sender: TObject);
begin
  Application.CreateForm(TForm55,Form55);
  Form55.ShowModal;
  Form55.Free;
end;

procedure TForm88.N4Click(Sender: TObject);
begin
  Application.CreateForm(TForm59,Form59);
  Form59.ShowModal;
  Form59.Free;
end;

procedure TForm88.N12Click(Sender: TObject);
begin
  Application.CreateForm(TForm16,Form16);
  Form16.ShowModal;
  Form16.Free;
end;

procedure TForm88.N16Click(Sender: TObject);
begin
  Application.CreateForm(TForm21,Form21);
  Form21.ShowModal;
  Form21.Free;
end;

procedure TForm88.N17Click(Sender: TObject);
begin
  Application.CreateForm(TForm37,Form37);
  Form37.ShowModal;
  Form37.Free;
end;

procedure TForm88.N18Click(Sender: TObject);
begin
  Application.CreateForm(TForm57,Form57);
  Form57.ShowModal;
  Form57.Free;
end;

procedure TForm88.N19Click(Sender: TObject);
begin
  Application.CreateForm(TForm58,Form58);
  Form58.ShowModal;
  Form58.Free;
end;

procedure TForm88.TreeView1Click(Sender: TObject);
begin
  ListView1.Items.Clear;
  if TreeView1.Selected.Level = 0 then
  begin
    AddItem('基础信息管理');
    AddItem('入库管理');
    AddItem('结款管理');
    AddItem('库存管理');
    AddItem('查询管理');
    AddItem('报表管理');
    StatusBar1.Panels[1].Text := TreeView1.Selected.Text;
  end
  else if TreeView1.Selected.Level = 1 then
  begin
    if TreeView1.Items[1].Selected then
    begin
      AddItem('供应商管理');
      AddItem('操作员管理');
      AddItem('商品信息管理');
    end
    else if TreeView1.Items[2].Selected then
    begin
      AddItem('商品入库管理');
      AddItem('入库退货管理');
    end
    else if  TreeView1.Items[3].Selected then
    begin
      AddItem('供应商结款管理');
    end
    else  if TreeView1.Items[4].Selected then
    begin
      AddItem('商品出库管理');
      AddItem('库存价格调整');
      AddItem('商品报损管理');
      AddItem('商品报溢管理');
      AddItem('上下限管理');
    end
    else  if TreeView1.Items[5].Selected then
    begin
      AddItem('商品入库查询');
      AddItem('入库退货查询');
      AddItem('库存查询');
      AddItem('上下限查询');
      AddItem('商品出库查询');
      AddItem('商品报损查询');
      AddItem('商品报溢查询');
      AddItem('对账单查询');
      AddItem('超期应付款查询');
    end
    else
      AddItem('商品入库报表');
    StatusBar1.Panels[1].Text := TreeView1.Selected.Text;
  end;
end;

procedure TForm88.FormShow(Sender: TObject);
begin
  StatusBar1.Panels[5].Text:= FormatDateTime('yyyy-mm-dd',Now);
  StatusBar1.Panels[7].Text:= FormatDateTime('hh:mm:ss',Now);
  Application.CreateForm(TForm2,Form2);
  Form2.ShowModal;
  Form2.Free;
end;

procedure TForm88.AddItem(Caption: String);
begin
  List1 := ListView1.Items.Add;
  List1.Caption := Caption;
end;

procedure TForm88.ListView1DblClick(Sender: TObject);
begin
  if ListView1.Selected<>nil then
  begin
    if ListView1.Selected.Caption = '商品信息管理' then
      N33.OnClick(Sender)
    else if ListView1.Selected.Caption = '商品入库管理' then
      N13.OnClick(Sender)
    else if ListView1.Selected.Caption = '入库退货管理' then
      N14.OnClick(Sender)
    else if ListView1.Selected.Caption = '商品出库管理' then
      N7.OnClick(Sender)
    else if ListView1.Selected.Caption = '库存价格调整' then
      N8.OnClick(Sender)
    else if ListView1.Selected.Caption = '商品报损管理' then
      N9.OnClick(Sender)
    else if ListView1.Selected.Caption = '商品报溢管理' then
      N15.OnClick(Sender)
    else if ListView1.Selected.Caption = '上下限管理' then
      N2.OnClick(Sender)
    else if ListView1.Selected.Caption = '商品入库查询' then
      N3.OnClick(Sender)
    else if ListView1.Selected.Caption = '入库退货查询' then
      N4.OnClick(Sender)
    else if ListView1.Selected.Caption = '库存查询' then
      N12.OnClick(Sender)
    else if ListView1.Selected.Caption = '上下限查询' then
      N16.OnClick(Sender)
    else if ListView1.Selected.Caption = '商品出库查询' then
      N17.OnClick(Sender)
    else if ListView1.Selected.Caption = '商品报损查询' then
      N18.OnClick(Sender)
    else if ListView1.Selected.Caption = '商品报溢查询' then
      N19.OnClick(Sender)
    else if ListView1.Selected.Caption = '商品入库报表' then
      N23.OnClick(Sender)
    else if ListView1.Selected.Caption = '供应商管理' then
      N32.OnClick(Sender)
    else if ListView1.Selected.Caption = '操作员管理' then
      N34.OnClick(Sender)
    else if ListView1.Selected.Caption = '供应商结款管理' then
      N24.OnClick(Sender)
    else if ListView1.Selected.Caption = '对账单查询' then
      N27.OnClick(Sender)
    else if ListView1.Selected.Caption = '超期应付款查询' then
      N28.OnClick(Sender)
    else if ListView1.Selected.Caption = '基础信息管理' then
    begin
      TreeView1.Items[1].Selected := True;
      TreeView1.OnClick(Sender);
    end
    else if ListView1.Selected.Caption = '入库管理' then
    begin
      TreeView1.Items[2].Selected := True;
      TreeView1.OnClick(Sender);
    end
    else if  ListView1.Selected.Caption = '结款管理' then
    begin
      TreeView1.Items[3].Selected := True;
      TreeView1.OnClick(Sender);
    end
    else if ListView1.Selected.Caption = '库存管理' then
    begin
      TreeView1.Items[4].Selected := True;
      TreeView1.OnClick(Sender);
    end
    else if ListView1.Selected.Caption = '查询管理' then
    begin
      TreeView1.Items[5].Selected := True;
      TreeView1.OnClick(Sender);
    end
    else if ListView1.Selected.Caption = '报表管理' then
    begin
      TreeView1.Items[6].Selected := True;
      TreeView1.OnClick(Sender);
    end;
  end;
end;

procedure TForm88.N27Click(Sender: TObject);
begin
  Application.CreateForm(TForm47,Form47);
  Form47.ShowModal;
  Form47.Free;
end;

procedure TForm88.N28Click(Sender: TObject);
begin
  Application.CreateForm(TForm53,Form53);
  Form53.ShowModal;
  Form53.Free;
end;

procedure TForm88.N32Click(Sender: TObject);
begin
  Application.CreateForm(TForm8,Form8);
  Form8.ShowModal;
  Form8.Free;
end;

procedure TForm88.N34Click(Sender: TObject);
begin
  Application.CreateForm(TForm4,Form4);
  Form4.ShowModal;
  Form4.Free;
end;

procedure TForm88.N33Click(Sender: TObject);
begin
  Application.CreateForm(TForm7,Form7);
  Form7.ShowModal;
  Form7.Free;
end;

procedure TForm88.N23Click(Sender: TObject);
begin
  Application.CreateForm(TForm64,Form64);
  Form64.ShowModal;
  Form64.Free;
end;

procedure TForm88.N24Click(Sender: TObject);
begin
  Application.CreateForm(TForm43,Form43);
  Form43.ShowModal;
  Form43.Free;
end;

procedure TForm88.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  If Key = VK_ESCAPE then
    Close;
end;

end.