danwei.pas

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

unit DanWei;

interface

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

type
  TDanWeiForm = class(TForm)
    Label2: TLabel;
    Label10: TLabel;
    Label3: TLabel;
    ButtonOk: TButton;
    ButtonReturn: TButton;
    Label4: TLabel;
    DBEdit1: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit5: TDBEdit;
    Panel1: TPanel;
    Label1: TLabel;
    EditCompCode: TEdit;
    DBMemo1: TDBMemo;
    Label5: TLabel;
    procedure ButtonReturnClick(Sender: TObject);
    procedure ButtonOkClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure EditCompCodeExit(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DanWeiForm: TDanWeiForm;

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

procedure TDanWeiForm.ButtonReturnClick(Sender: TObject);
begin
Try
If (huaxiaData.QueryComp.State=DsInsert) or (huaxiaData.QueryComp.State=DsEdit) Then
   If MessageDlg('所做修改尚未保存,保存修改吗？', mtConfirmation, [mbYes, mbNo],0)=mrYes Then
      HuaXiaData.QueryComp.Post
   Else
      HuaXiaData.QueryComp.Cancel;
HuaXiaData.QueryComp.Close;
Close;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TDanWeiForm.ButtonOkClick(Sender: TObject);
begin
Try
If (huaxiaData.QueryComp.State=DsInsert) or (huaxiaData.QueryComp.State=DsEdit) Then
    huaxiaData.QueryComp.post;
ActiveControl:=EditCompCode;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TDanWeiForm.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 TDanWeiForm.EditCompCodeExit(Sender: TObject);
begin
Try
If EditCompCode.Text<>'' Then
Begin
With HuaXiaData.QueryComp Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
        Clear;
        Add('Select * From lease_comp_info ');
        Add('Where lease_comp_code=:Comp_Code');
     End;
     RequestLive:=True;
     ParamByName('Comp_code').AsString:=DanweiForm.EditCompCode.text;
     prepare;
     Open;
     End;
If HuaXiaData.QueryComp.RecordCount=0 Then
   Begin
   HuaXiaData.QueryComp.Append;
   HuaXiaData.QueryComp.FieldByName('lease_comp_code').AsString:=DanweiForm.EditCompCode.text;
   End
   Else
   HuaXiaData.QueryComp.Edit;
End
Else
   Begin
   ErrorForm.ShowModal;
   ActiveControl:=ButtonReturn;
   End;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TDanWeiForm.FormActivate(Sender: TObject);
begin
EditCompCode.text:='';
end;

procedure TDanWeiForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
HuaXiaData.QueryComp.Close;
end;

end.