hkgl.~pas

一个完整的户况管理系统一个完整的户况管理系统一个完整的户况管理系统

unit hkgl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzPanel, RzButton, ExtCtrls, ImgList, XPMenu, Menus, RzStatus,
  ComCtrls, StdCtrls, RzTreeVw, jpeg, WinSkinData, WinSkinStore, ToolWin;

type
  TForm1 = class(TForm)
    mm1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N6: TMenuItem;
    N5: 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;
    N51: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N31: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N40: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    xpmn1: TXPMenu;
    il1: TImageList;
    stat1: TStatusBar;
    tmr1: TTimer;
    ImageList1: TImageList;
    img1: TImage;
    SkinStore1: TSkinStore;
    SkinData1: TSkinData;
    tlb1: TToolBar;
    btn1: TToolButton;
    btn2: TToolButton;
    btn3: TToolButton;
    btn4: TToolButton;
    btn5: TToolButton;
    btn6: TToolButton;
    btn7: TToolButton;
    btn8: TToolButton;
    btn9: TToolButton;
    btn10: TToolButton;
    btn12: TToolButton;
    il2: TImageList;
    N41: TMenuItem;
    N42: TMenuItem;
    N4: TMenuItem;
    procedure btn11Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure tmr1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btn1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure btn2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure btn3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure btn4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure btn5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure btn6MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure btn7MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure btn8MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure btn9MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure btn10MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure btn11MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure btn1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure btn10Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure btn12Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure btn6Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure btn9Click(Sender: TObject);

  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit1,Unitbf, Unit5, Unitjwh, Unitxqsz, Unitlcsz,
  Unitczgl, Unitfjxx, Unitzhxx, Unitlxfs, Unitczgl1, Unittpld, Unit6,
  Unit7, Unit8, Unithkxx;

{$R *.dfm}

procedure TForm1.btn11Click(Sender: TObject);
begin
close
end;

procedure TForm1.N8Click(Sender: TObject);
begin
close
end;

procedure TForm1.tmr1Timer(Sender: TObject);
var
 dat: array[1..7] of string;
begin
  dat[1] := '星期日';
 dat[2] := '星期一';
 dat[3] := '星期二';
 dat[4] := '星期三';
 dat[5] := '星期四';
 dat[6] := '星期五';
 dat[7] := '星期六';
 stat1.Panels[7].text:=' '+'今天日期：'+' '+DateTimeToStr(now)+'   '+dat[DayOfWeek(now)];
  
end;

procedure TForm1.FormCreate(Sender: TObject);
    var     
  FWidth:integer;
begin

   Form1.Left := -1;
  Form1.Top := -1;
  Form1.Width := 1030;
  Form1.Height := 744;
    //Form1.Brush.Bitmap:=img1.Picture.Bitmap;
  if(Screen.width =   1024)then
    begin
      //Image1.AutoSize:=False;
       //Image1.Height:=617;
       //Image1.Width:= 837;
       //tv1.Height :=617;
      end;
     if(Screen.width<>   1024)then
  begin     
  FWidth:=Width;     
  Scaled:=TRUE;     
  Font.Size:=(Width   DIV   FWidth)*Font.Size;//字体大小调整     
  ScaleBy(Screen.Width,1024);   //控件大小调整
  Height:=longint(Height)*longint(Screen.Height)DIV   768;
  Width:=longint(Width)*longint(Screen.Width)DIV   1024;//窗口大小调整
  end;
    if(Screen.width >   1024)then
    begin
      stat1.Panels[6].Width:=450;
      //Image1.AutoSize:=False;
       //Image1.Height:=827;
       //Image1.Width:= 1204;
       //tv1.Height :=844;
      //edt1.Text=rztlbr1.height;
      end;
      stat1.Panels[3].text:='    '+ Form2.edt1.Text;
      //Form1.Height :=Form1.Height -50;
end;

procedure TForm1.btn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
stat1.Panels[1].text:='  '+'用户管理';
end;

procedure TForm1.btn2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
stat1.Panels[1].text:='  '+'居民户口簿';
end;

procedure TForm1.btn3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
stat1.Panels[1].text:='  '+'社区救助';
end;

procedure TForm1.btn4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
stat1.Panels[1].text:='  '+'暂住人口';
end;

procedure TForm1.btn5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
stat1.Panels[1].text:='  '+'孕妇管理';
end;

procedure TForm1.btn6MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
stat1.Panels[1].text:='  '+'计生信息浏览';
end;

procedure TForm1.btn7MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
stat1.Panels[1].text:='  '+'居民信息查询';
end;

procedure TForm1.btn8MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
stat1.Panels[1].text:='  '+'暂住人口查询';
end;

procedure TForm1.btn9MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
stat1.Panels[1].text:='  '+'计生信息查询';
end;

procedure TForm1.btn10MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
stat1.Panels[1].text:='  '+'数据备份';
end;

procedure TForm1.btn11MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
stat1.Panels[1].text:='  '+'退出系统';
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
stat1.Panels[1].text:='  '+'主操作界面';
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
application.CreateForm(TFormzhxx,  Formzhxx);
  Formzhxx.ShowModal;
  Formzhxx.Free;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
 application.CreateForm(Tfmyhgl,fmyhgl);
fmyhgl.ShowModal;
fmyhgl.Free;
end;

procedure TForm1.btn10Click(Sender: TObject);
begin
application.CreateForm(TFormbf,Formbf);
Formbf.ShowModal;
Formbf.Free;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
  application.CreateForm(TFmqx,  Fmqx);
  Fmqx.ShowModal;
  Fmqx.Free;

end;

procedure TForm1.N5Click(Sender: TObject);
begin


 application.CreateForm(TFormjwh,  Formjwh);
  Formjwh.ShowModal;
  Formjwh.Free;

end;

procedure TForm1.N41Click(Sender: TObject);
begin

application.CreateForm(TFormxqsz,  Formxqsz);
  Formxqsz.ShowModal;
  Formxqsz.Free;
end;

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

procedure TForm1.N42Click(Sender: TObject);
begin

 application.CreateForm(TFormlcsz,  Formlcsz);
  Formlcsz.ShowModal;
  Formlcsz.Free;
end;

procedure TForm1.N11Click(Sender: TObject);
begin

application.CreateForm(TFormzhxx,  Formzhxx);
  Formzhxx.ShowModal;
  Formzhxx.Free;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
  application.CreateForm(TFormfjxx,  Formfjxx);
  Formfjxx.ShowModal;
  Formfjxx.Free;

end;

procedure TForm1.N12Click(Sender: TObject);
begin
  application.CreateForm(TFormlxfs,  Formlxfs);
  Formlxfs.ShowModal;
  Formlxfs.Free;

end;

procedure TForm1.btn6Click(Sender: TObject);
begin
  application.CreateForm(Tform6,  form6);
  form6.ShowModal;
  form6.Free;
end;

procedure TForm1.N24Click(Sender: TObject);
begin
  application.CreateForm(TFormhkxxt,  Formhkxxt);
  Formhkxxt.ShowModal;
  Formhkxxt.Free;

end;

procedure TForm1.btn9Click(Sender: TObject);
begin
  application.CreateForm(TFormlxfs,  Formlxfs);
  Formlxfs.ShowModal;
  Formlxfs.Free;
end;

end.


uses Unit1;


uses Unit1;


uses Unit3;


uses unit2;


uses unit2;


uses Unit3;


uses Unit3;


uses Unit4;

uses Unitbf;