heimingdanwei.pas

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

unit heimingdanwei;

interface

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

type
  THeiMingDanWeiForm = 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
  HeiMingDanWeiForm: THeiMingDanWeiForm;

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

procedure THeiMingDanWeiForm.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 THeiMingDanWeiForm.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.Queryhei.Insert;
     HuaXiaData.Queryhei.Edit;
     HuaXiaData.Queryhei.FieldByName('lease_comp_code').AsString:=Copy(ReadLine,1,16);
     HuaXiaData.Queryhei.FieldByName('lease_comp_name').AsString:=Copy(ReadLine,17,40);
     HuaXiaData.Queryhei.FieldByName('lease_comp_address').AsString:=Copy(ReadLine,57,40);
     HuaXiaData.Queryhei.FieldByName('contact_name').AsString:=Copy(ReadLine,97,20);
     HuaXiaData.Queryhei.FieldByName('contact_phone').AsString:=Copy(ReadLine,117,137);
     HuaXiaData.Queryhei.FieldByName('note').AsString:=Copy(ReadLine,137,80);
     HuaXiaData.Queryhei.FieldByName('tag').AsString:='0';
     HuaXiaData.Queryhei.Post;
   End;
   CloseFile(Filehei);
End;
HuaXiaData.Queryhei.Active:=False;
HuaXiaData.Queryhei.Active:=True;
HuaXiaData.Queryhei.Last;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure THeiMingDanWeiForm.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 THeiMingDanWeiForm.FormActivate(Sender: TObject);
begin
DbGridHei.Enabled:=True;
DBNavigatorheimingdan.Enabled:=True;
HuaXiaData.Queryhei.Active:=True;
end;

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

procedure THeiMingDanWeiForm.ButtonCloseClick(Sender: TObject);
begin
HuaXiaData.QueryHei.Active:=False;
end;

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

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

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

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

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

end;

procedure THeiMingDanWeiForm.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.QueryHei.FieldByName('lease_comp_name').AsString+' 注册号码：'+HuaXiaData.QueryHei.FieldByName('lease_comp_code').AsString+HuaXiaData.QueryHei.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.