heimingdan.pas

本系统为演示Delphi的功能而开发设计

unit heimingdan;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, ExtCtrls, Db, Dbgrids, DBTables, Grids, Menus;

type
  THeiMingDanForm = class(TForm)
    ButtonLoad: TButton;
    OpenDialogheimingdan: TOpenDialog;
    DBNavigatorheimingdan: TDBNavigator;
    DBGridhei: TDBGrid;
    Button3: TButton;
    PopupMenuChuLi: TPopupMenu;
    O1: TMenuItem;
    U1: TMenuItem;
    A1: TMenuItem;
    Y1: TMenuItem;
    W1: TMenuItem;
    P1: TMenuItem;
    procedure ButtonInputClick(Sender: TObject);
    procedure ButtonLoadClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ButtonCloseClick(Sender: TObject);
    procedure A1Click(Sender: TObject);
    procedure Y1Click(Sender: TObject);
    procedure W1Click(Sender: TObject);
    procedure O1Click(Sender: TObject);
    procedure U1Click(Sender: TObject);
    procedure P1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  HeiMingDanForm: THeiMingDanForm;

implementation
uses huaxia, ErrorHit,Login;
{$R *.DFM}

procedure THeiMingDanForm.ButtonInputClick(Sender: TObject);
begin
Try
DbGridHei.Enabled:=True;
DBNavigatorheimingdan.Enabled:=True;
ActiveControl:=DbGridHei;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure THeiMingDanForm.ButtonLoadClick(Sender: TObject);
Var Filehei:TextFile;
    ReadLine:String;
begin
Try
if OpenDialogheimingdan.Execute then
Begin
   AssignFile(Filehei,OpenDialogheimingdan.FileName);
   Reset(Filehei);
   While not Eof(Filehei) Do
   Begin
     ReadLn(Filehei,ReadLine);
     HuaXiaData.Tablehei.Insert;
     HuaXiaData.Tablehei.Edit;
     HuaXiaData.Tablehei.FieldByName('name').AsString:=Copy(ReadLine,1,8);
     HuaXiaData.Tablehei.FieldByName('sex').AsString:=Copy(ReadLine,9,2);
     HuaXiaData.Tablehei.FieldByName('id_number').AsString:=Copy(ReadLine,11,18);
     HuaXiaData.Tablehei.FieldByName('licence_number').AsString:=Copy(ReadLine,29,18);
     HuaXiaData.Tablehei.FieldByName('telephone').AsString:=Copy(ReadLine,47,18);
     HuaXiaData.Tablehei.FieldByName('address').AsString:=Copy(ReadLine,65,30);
     HuaXiaData.Tablehei.FieldByName('note').AsString:=Copy(ReadLine,95,80);
     HuaXiaData.Tablehei.FieldByName('tag').AsString:='0';
     HuaXiaData.Tablehei.Post;
   End;
   CloseFile(Filehei);
End;
HuaXiaData.Tablehei.Active:=False;
HuaXiaData.Tablehei.Active:=True;
HuaXiaData.Tablehei.Last;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure THeiMingDanForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then { 判断是按执行键}
 If Not(ActiveControl Is TDbgrid) Then
 Begin { 不是在TDbgrid控件内}
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
  End Else
  If (ActiveControl Is TDbgrid) Then{是在 TDbgrid 控件内}
  Begin
    With TDbgrid(ActiveControl) Do
    If Selectedindex<(FieldCount-1) Then
    Selectedindex:=Selectedindex+1{ 移动到下一字段}
    Else Selectedindex:=0;
   End;
end;



procedure THeiMingDanForm.FormActivate(Sender: TObject);
begin
DbGridHei.Enabled:=True;
DBNavigatorheimingdan.Enabled:=True;
HuaXiaData.Tablehei.Active:=True;
end;

procedure THeiMingDanForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
HuaXiaData.Tablehei.Active:=False;
end;

procedure THeiMingDanForm.ButtonCloseClick(Sender: TObject);
begin
HuaXiaData.TableHei.Active:=False;
end;

procedure THeiMingDanForm.A1Click(Sender: TObject);
begin
HuaXiaData.TableHei.Active:=False;
HuaXiaData.TableHei.Filtered:=False;
HuaXiaData.TableHei.Active:=True;
end;

procedure THeiMingDanForm.Y1Click(Sender: TObject);
begin
HuaXiaData.TableHei.Active:=False;
HuaXiaData.TableHei.Filtered:=False;
HuaXiaData.TableHei.Filter:='tag='+'1';
HuaXiaData.TableHei.Filtered:=True;
HuaXiaData.TableHei.Active:=True;
end;

procedure THeiMingDanForm.W1Click(Sender: TObject);
begin
HuaXiaData.TableHei.Active:=False;
HuaXiaData.TableHei.Filtered:=False;
HuaXiaData.TableHei.Filter:='tag='+'0';
HuaXiaData.TableHei.Filtered:=True;
HuaXiaData.TableHei.Active:=True;
end;

procedure THeiMingDanForm.O1Click(Sender: TObject);
begin
Try
HuaXiaData.TableHei.Edit;
HuaXiaData.TableHei.FieldByName('tag').AsString:='1';
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure THeiMingDanForm.U1Click(Sender: TObject);
begin
Try
HuaXiaData.TableHei.Edit;
HuaXiaData.TableHei.FieldByName('tag').AsString:='0';
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;

end;

procedure THeiMingDanForm.P1Click(Sender: TObject);
begin
Try
With HuaXiaData.QueryGonggao Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
     Clear;
     Add('Select * From sys_Bulletin')
     End;
     RequestLive:=True;
     prepare;
     Open;
     End;
HuaXiaData.QueryGonggao.Append;
HuaXiaData.QueryGonggao.Edit;
HuaXiaData.QueryGonggao.FieldByName('bulletin_date').Value:=Now;
HuaXiaData.QueryGonggao.FieldByName('bulletin_content').AsString:=HuaXiaData.TableHei.FieldByName('name').AsString+' 身份证号：'+HuaXiaData.TableHei.FieldByName('id_number').AsString+HuaXiaData.TableHei.FieldByName('note').AsString;
HuaXiaData.QueryGonggao.Post;
If HuaXiaData.QueryGonggao.UpdatesPending Then
   HuaXiaData.QueryGonggao.ApplyUpdates;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

end.