gdzcgl.~pas

用delphi编写的固定资产管理系统

unit gdzcgl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, Menus,zclbgl,zczjfsgl,zcjsgl,zcsyqkgl,
  gdzclr,gdzcjsgl,xggdzc,jtzj,scgdzc,fjtzj, ImgList, Buttons;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N14: TMenuItem;
    N13: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N15: TMenuItem;
    CoolBar1: TCoolBar;
    TreeView1: TTreeView;
    Splitter1: TSplitter;
    N4: TMenuItem;
    N5: TMenuItem;
    ImageList1: TImageList;
    ImageList2: TImageList;
    ListView1: TListView;
    S1: TMenuItem;
    N11: TMenuItem;
    N10: TMenuItem;
    N12: TMenuItem;
    StatusBar1: TStatusBar;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
    Procedure AddItem(Caption: String);
    procedure ListView1DblClick(Sender: TObject);
    procedure TreeView1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure N11Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  List1: TListItem;
implementation

uses sjbf, sjhy, xtcsh;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);
begin
  Application.CreateForm(TForm2,Form2);
  Form2.ShowModal;
  Form2.Free;
end;

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

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

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

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

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

procedure TForm1.N4Click(Sender: TObject);
begin
  Application.CreateForm(TForm9,Form9);
  Form9.ShowModal;
  Form9.Free;
end;

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

procedure TForm1.N5Click(Sender: TObject);
begin
  Application.CreateForm(TForm10,Form10);
  Form10.ShowModal;
  Form10.Free;
end;

procedure TForm1.N15Click(Sender: TObject);
begin
  Application.CreateForm(TForm11,Form11);
  Form11.ShowModal;
  Form11.Free;
end;

procedure TForm1.TreeView1Click(Sender: TObject);
begin
  ListView1.Items.Clear;
  if TreeView1.Selected.Level = 0 then
  begin
    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('减少方式管理');
      AddItem('使用状况管理');
    end
    else if TreeView1.Items[2].Selected then
    begin
      AddItem('固定资产增加');
      AddItem('固定资产修改');
      AddItem('固定资产删除');
      AddItem('固定资产减少');
      AddItem('计提管理');
      AddItem('反计提管理');
    end
    else if TreeView1.Items[3].Selected then
    begin
      AddItem('数据备份');
      AddItem('数据还原');
      AddItem('系统初始化');
    end;
    StatusBar1.Panels[1].Text := TreeView1.Selected.Text;
  end;
end;

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

procedure TForm1.ListView1DblClick(Sender: TObject);
begin
  if ListView1.SelCount>0 then
  begin
    if ListView1.Selected.Caption = '资产类别管理' then
      N2.OnClick(Sender)
    else if ListView1.Selected.Caption = '增加方式管理' then
      N3.OnClick(Sender)
    else if ListView1.Selected.Caption = '减少方式管理' then
      N14.OnClick(Sender)
    else if ListView1.Selected.Caption = '使用状况管理' then
      N13.OnClick(Sender)
    else if ListView1.Selected.Caption = '固定资产增加' then
      N7.OnClick(Sender)
    else if ListView1.Selected.Caption = '固定资产修改' then
      N4.OnClick(Sender)
    else if ListView1.Selected.Caption = '固定资产删除' then
      N5.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
      N11.OnClick(Sender)
    else if ListView1.Selected.Caption = '数据还原' then
      N10.OnClick(Sender)
    else if ListView1.Selected.Caption = '系统初始化' then
      N12.OnClick(Sender);
  end;
end;

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

procedure TForm1.N11Click(Sender: TObject);
begin
  Application.CreateForm(TFormF,Formf);
  FormF.ShowModal;
  Formf.Free;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
  Application.CreateForm(TFormH,Formh);
  FormH.ShowModal;
  FormH.Free;
end;

procedure TForm1.N12Click(Sender: TObject);
begin
  Application.CreateForm(TForm69,Form69);
  Form69.ShowModal;
  Form69.Free;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  StatusBar1.Panels[3].Text :='王平';
  StatusBar1.Panels[5].Text := FormatDateTime('yyyy-mm-dd',Now);
  StatusBar1.Panels[7].Text := FormatDateTime('hh:mm:ss',Now);
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  Close;
end;

end.