main.~pas

用Delphi编写的户籍管理系统

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, ComCtrls, ToolWin, Menus, ImgList, StdActns,
  ExtActns, ActnList, DBActns, OleServer, Excel2000;

type
  TFrmMain = class(TForm)
    StatusBar1: TStatusBar;
    MainMenu1: TMainMenu;
    F1: TMenuItem;
    E1: TMenuItem;
    D1: TMenuItem;
    X1: TMenuItem;
    E2: TMenuItem;
    ToolBar1: TToolBar;
    ToolButtonExit: TToolButton;
    Splitter1: TSplitter;
    DBNavigatorMain: TDBNavigator;
    ActionList1: TActionList;
    FileOpen1: TFileOpen;
    FilePrintSetup1: TFilePrintSetup;
    FileExit1: TFileExit;
    ToolButtonPY: TToolButton;
    Splitter2: TSplitter;
    Splitter3: TSplitter;
    ToolButtonPrint: TToolButton;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    DataSetFirst1: TDataSetFirst;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSetNext;
    DataSetLast1: TDataSetLast;
    DataSetInsert1: TDataSetInsert;
    DataSetDelete1: TDataSetDelete;
    DataSetEdit1: TDataSetEdit;
    DataSetPost1: TDataSetPost;
    DataSetCancel1: TDataSetCancel;
    ImageList1: TImageList;
    N13: TMenuItem;
    N14: TMenuItem;
    B2: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    WindowClose1: TWindowClose;
    WindowCascade1: TWindowCascade;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    WindowMinimizeAll1: TWindowMinimizeAll;
    WindowArrange1: TWindowArrange;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    Splitter4: TSplitter;
    ToolButton4: TToolButton;
    W1: TMenuItem;
    H1: TMenuItem;
    V1: TMenuItem;
    A1: TMenuItem;
    N17: TMenuItem;
    C1: TMenuItem;
    H2: TMenuItem;
    N1: TMenuItem;
    L1: TMenuItem;
    SQL1: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    ActionPY: TAction;
    ExcelOLEObject1: TExcelOLEObject;
    procedure X1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButtonPYClick(Sender: TObject);
    procedure ToolButtonPrintClick(Sender: TObject);
    procedure B1Click(Sender: TObject);
    procedure E2Click(Sender: TObject);
    procedure SQL1Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;

implementation
uses MainData,HJZL_Brow,HJZL_Edit,XMPY_EDIT, PickXMPY,RunSQL, FrmDialog;
{$R *.dfm}

procedure TFrmMain.X1Click(Sender: TObject);
begin
  Close;
end;

procedure TFrmMain.FormCreate(Sender: TObject);
begin
  FrmMain.ClientHeight:=630;
  FrmMain.ClientWidth:=988;
end;

//用姓名的拼音简码查找记录
procedure TFrmMain.ToolButtonPYClick(Sender: TObject);
begin
  if FrmPY.ShowModal = mrOk then
  begin
    WITH FrmMain.DBNavigatorMain DO
    BEGIN
      IF DataSource=DataHJZL.DSXMPY THEN  //如果当前数据表在XMPY
        DataHJZL.ADOTableXMPY.Locate(DataHJZL.ADOTableXMPYXM.FieldName,
          DataHJZL.AdoQueryTMP.FieldByName('XM').AsString,[])
      ELSE
        DataHJZL.ADOTableHZ.Locate(DataHJZL.ADOTableHZBH.FieldName,
          DataHJZL.AdoQueryTMP.FieldByName('BH').AsInteger,[]) ;
    END;
  end;
end;

procedure TFrmMain.ToolButtonPrintClick(Sender: TObject);
begin
  showmessage('该功能尚未提供？');
end;

procedure TFrmMain.B1Click(Sender: TObject);

begin
  //ZL_Brow.FrmHJGLBrow.Create(self);
  //mHJGLBrow.Show;
end;

procedure TFrmMain.E2Click(Sender: TObject);
var MdiChild:TFrmHJGLEdit ;
begin
    MdiChild:=TFrmHJGLEdit.Create(Application);  //创建指定MDI子窗口
    MdiChild.AutoSize:=False;
end;


procedure TFrmMain.SQL1Click(Sender: TObject);
var MdiChild:TFrmSQL;
begin
    MdiChild:=TFrmSQL.Create(Application);  //创建指定MDI子窗口
end;

procedure TFrmMain.N15Click(Sender: TObject);
var MdiChild:TFrmHJGLBrow ;
begin
    MdiChild:=TFrmHJGLBrow.Create(Application);  //创建指定MDI子窗口
end;

procedure TFrmMain.N19Click(Sender: TObject);
var MdiChild:TFrmXMPY ;
begin
    MdiChild:=TFrmXMPY.Create(Application);  //创建指定MDI子窗口
end;

procedure TFrmMain.N1Click(Sender: TObject);
VAR MSG:STRING;
begin
 MSG:='名称:户籍管理系统 V1.0'+#13+#13;
 MSG:=MSG+'语言:Delphi6.0+Acess2000'+#13+#13;
 MSG:=MSG+'作者:杨怀玉 [e-mail]';
 OKBottomDlg.LabelMsg.Caption:=MSG;
  OKBottomDlg.Caption:='关于';
if OKBottomDlg.ShowModal = mrOk then

end;

procedure TFrmMain.N20Click(Sender: TObject);
VAR MSG:STRING;
begin
 MSG:='1、增加：姓名等必填项要填写完整。'+#13+#13;
 MSG:=MSG+'2、删除：删除户主则其成员也被删除，要小心！'+#13+#13;
 MSG:=MSG+'3、存盘：数据修改后要注意保存。';
 OKBottomDlg.LabelMsg.Caption:=MSG;
 OKBottomDlg.LabelMsg.Font.Name:='宋体';
  OKBottomDlg.LabelMsg.Font.Size:=10;
  OKBottomDlg.Caption:='操作提示';
if OKBottomDlg.ShowModal = mrOk then


end;

end.