pzgl.~pas

来自「一个比较实用的凭证管理系统,Delphi+SQL开发」· ~PAS 代码 · 共 113 行

unit pzgl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, StdCtrls, ExtCtrls, ComCtrls, ToolWin, Menus,pzlr,zygl,kmgl,pzsh,pzgz,pzcx;

type
  TForm1 = class(TForm)
    ImageList1: TImageList;
    Panel1: TPanel;
    Image1: TImage;
    ImageList2: TImageList;
    Panel2: TPanel;
    ListView1: TListView;
    Panel3: TPanel;
    ListView2: TListView;
    ListView3: TListView;
    procedure ListView1Click(Sender: TObject);
    Procedure AddItem(Caption: String;ImageIndex : Integer);
    procedure ListView3DblClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.ListView1Click(Sender: TObject);
begin
  if ListView1.Selected<>Nil then
  begin
    ListView3.Clear;
    Case ListView1.Selected.ImageIndex of 
      0: begin
           AddItem('摘要管理',0);
           AddItem('会计科目管理',1);  
         end;
      1: begin
           AddItem('凭证录入',2);
           AddItem('凭证审核',3);
           AddItem('凭证过账',4);
         end;
      2:  AddItem('凭证查询',5);
    end;
  end;
end;

procedure TForm1.AddItem(Caption: String;ImageIndex: Integer);
var
  ListItem1: TListItem;
begin
  ListItem1:= ListView3.Items.Add;
  ListItem1.Caption := Caption;
  ListItem1.ImageIndex := ImageIndex;
end;

procedure TForm1.ListView3DblClick(Sender: TObject);
begin
  if ListView3.Selected<>Nil then
  begin
    Case ListView3.Selected.ImageIndex of
      0: begin
           Application.CreateForm(TForm3,Form3);
           Form3.ShowModal;
           Form3.Free;
         end;
      1: begin
           Application.CreateForm(TForm4,Form4);
           Form4.ShowModal;
           Form4.Free;    
         end;
      2: begin
           Application.CreateForm(TForm2,Form2);
           Form2.ShowModal;
           Form2.Free;
         end;
      3: begin
           Application.CreateForm(TForm5,Form5);
           Form5.ShowModal;
           Form5.Free;
         end;
      4: begin
           Application.CreateForm(TForm6,Form6);
           Form6.ShowModal;
           Form6.Free;
         end;
      5: begin
           Application.CreateForm(TForm7,Form7);
           Form7.ShowModal;
           Form7.Free;
         end;
    End;
  end;
end;

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

end.