ckgl.pas

帮助学校更快捷方便的完成考试

unit CKGL;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ExtCtrls, ToolWin, ImgList,GYSGL,SPXXGL,CZYGL11,
  RKTHGL,SPRKGL;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: 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;
    ImageList1: TImageList;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    Splitter1: TSplitter;
    Splitter2: TSplitter;
    ToolButton4: TToolButton;
    Splitter3: TSplitter;
    Splitter4: TSplitter;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    Splitter5: TSplitter;
    Splitter6: TSplitter;
    Splitter7: TSplitter;
    Splitter8: TSplitter;
    TreeView1: TTreeView;
    Splitter9: TSplitter;
    ImageList2: TImageList;
    ImageList3: TImageList;
    StatusBar1: TStatusBar;
    ListView1: TListView;
    procedure TreeView1Click(Sender: TObject);
    Procedure AddItem(Caption: String);
    procedure ListView1DblClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure N6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
   // procedure N7Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
  
   private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  List1: TListItem;
  czy: String = '';
implementation

{$R *.dfm}
 procedure TForm1.AddItem(Caption: String);
begin
  List1 := ListView1.Items.Add;
  List1.Caption := Caption;
end;
procedure TForm1.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[5].Selected then
    begin
      AddItem('商品入库管理');
      AddItem('入库退货管理');
    end
    else if  TreeView1.Items[8].Selected then
    begin
      AddItem('供应商结款管理');
    end
    else  if TreeView1.Items[10].Selected then
    begin
      AddItem('商品出库管理');
      AddItem('库存价格调整');
      AddItem('商品报损管理');
      AddItem('商品报溢管理');
      AddItem('上下限管理');
    end
    else  if TreeView1.Items[16].Selected then
    begin
      AddItem('商品入库查询');
      AddItem('入库退货查询');
      AddItem('库存查询');
      AddItem('上下限查询');
      AddItem('商品出库查询');
      AddItem('商品报损查询');
      AddItem('商品报溢查询');
      AddItem('对账单查询');
      AddItem('超期应付款查询');
    end
    else if  TreeView1.Items[26].Selected then
    begin
      AddItem('商品入库报表');
    end
    else
    StatusBar1.Panels[1].Text := TreeView1.Selected.Text;
end
   else if TreeView1.Selected.Level = 2 then
  begin
    if TreeView1.Items[2].Selected then
    begin
      AddItem('供应商管理');
    end
    else if TreeView1.Items[3].Selected then
    begin
      AddItem('操作员管理');
    end
    else if TreeView1.Items[4].Selected then
    begin
      AddItem('商品信息管理');
    end
    else if TreeView1.Items[6].Selected then
    begin
      AddItem('商品入库管理');
    end
    else if TreeView1.Items[7].Selected then
    begin
      AddItem('入库退货管理');
    end
    else if TreeView1.Items[9].Selected then
    begin
      AddItem('供应商结款管理');
    end
    else if TreeView1.Items[11].Selected then
    begin
      AddItem('商品出库管理');
    end
    else if TreeView1.Items[12].Selected then
    begin
      AddItem('库存价格调整');
    end
    else if TreeView1.Items[13].Selected then
    begin
      AddItem('商品报损管理');
    end
    else if TreeView1.Items[14].Selected then
    begin
      AddItem('商品报溢管理');
    end
    else if TreeView1.Items[15].Selected then
    begin
      AddItem('上下限管理');
    end
    else if TreeView1.Items[17].Selected then
    begin
      AddItem('商品入库查询');
    end
    else if TreeView1.Items[18].Selected then
    begin
      AddItem('入库退货查询');
    end
    else if TreeView1.Items[19].Selected then
    begin
      AddItem('库存查询');
    end
    else if TreeView1.Items[20].Selected then
    begin
      AddItem('上下限查询');
    end
    else if TreeView1.Items[21].Selected then
    begin
      AddItem('商品出库查询');
    end
    else if TreeView1.Items[22].Selected then
    begin
      AddItem('商品报损查询');
    end
    else if TreeView1.Items[23].Selected then
    begin
      AddItem('商品报溢查询');
    end
    else if TreeView1.Items[24].Selected then
    begin
      AddItem('对账单查询');
    end
    else if TreeView1.Items[25].Selected then
    begin
      AddItem('超期应付款查询');
    end
    else if TreeView1.Items[27].Selected then
    begin
      AddItem('商品入库报表');
    end
    else
    StatusBar1.Panels[1].Text := TreeView1.Selected.Text;
end;
end;
procedure TForm1.ListView1DblClick(Sender: TObject);
begin
 if ListView1.Selected<>nil then
  begin
    if ListView1.Selected.Caption = '商品信息管理' then
      N8.OnClick(Sender)
    else if ListView1.Selected.Caption = '商品入库管理' then
      N9.OnClick(Sender)
    else if ListView1.Selected.Caption = '入库退货管理' then
      N10.OnClick(Sender)
    else if ListView1.Selected.Caption = '商品出库管理' then
      N23.OnClick(Sender)
    else if ListView1.Selected.Caption = '库存价格调整' then
      N24.OnClick(Sender)
    else if ListView1.Selected.Caption = '商品报损管理' then
      N25.OnClick(Sender)
    else if ListView1.Selected.Caption = '商品报溢管理' then
      N26.OnClick(Sender)
    else if ListView1.Selected.Caption = '上下限管理' then
      N27.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
      N15.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
      N6.OnClick(Sender)
    else if ListView1.Selected.Caption = '操作员管理' then
      N7.OnClick(Sender)
    else if ListView1.Selected.Caption = '供应商结款管理' then
      N11.OnClick(Sender)
    else if ListView1.Selected.Caption = '对账单查询' then
      N20.OnClick(Sender)
    else if ListView1.Selected.Caption = '超期应付款查询' then
      N21.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[5].Selected := True;
      TreeView1.OnClick(Sender);
    end
    else if  ListView1.Selected.Caption = '结款管理' then
    begin
      TreeView1.Items[8].Selected := True;
      TreeView1.OnClick(Sender);
    end
    else if ListView1.Selected.Caption = '库存管理' then
    begin
      TreeView1.Items[10].Selected := True;
      TreeView1.OnClick(Sender);
    end
    else if ListView1.Selected.Caption = '查询管理' then
    begin
      TreeView1.Items[16].Selected := True;
      TreeView1.OnClick(Sender);
    end
    else if ListView1.Selected.Caption = '报表管理' then
    begin
      TreeView1.Items[26].Selected := True;
      TreeView1.OnClick(Sender);
    end;
end;
end;

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

procedure TForm1.N6Click(Sender: TObject);
begin
Application.CreateForm(TForm3,Form3);
Form3.ShowModal;
Form3.Free;
end;

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

procedure TForm1.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 TForm1.N9Click(Sender: TObject);
begin
Application.CreateForm(TForm6,Form6);
Form6.ShowModal;
Form6.Free;
end;

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

procedure TForm1.N7Click(Sender: TObject);
begin
Application.CreateForm(TForm5,Form5);
Form5.ShowModal;
Form5.Free;
end;

end.