mc_xgtsxx.pas

1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2、建议用户在系统上安装DELPHI7.0企业版。 3、如果数据库为SQL Server数据库

unit MC_XGTSXX;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, DBCtrls, Mask, Buttons, Db, DBTables;

type
  TXGTSXX = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBMemo1: TDBMemo;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBEdit3: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    Query1: TQuery;
    SpeedButton1: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBEdit10KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit10Enter(Sender: TObject);
    procedure DBEdit10Exit(Sender: TObject);
    procedure DBMemo1Enter(Sender: TObject);
    procedure DBMemo1Exit(Sender: TObject);
    procedure DBComboBox1Exit(Sender: TObject);
    procedure DBComboBox1Enter(Sender: TObject);
    procedure DBComboBox2Enter(Sender: TObject);
    procedure DBComboBox2Exit(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XGTSXX: TXGTSXX;

implementation

uses MC_TSCX, MC_RYLB;

{$R *.DFM}

procedure TXGTSXX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     XGTSXX.Release;
     XGTSXX:=Nil;
end;

procedure TXGTSXX.BitBtn1Click(Sender: TObject);
begin
     if (Length(TSCX.Query1.FieldByName('投诉编号').asString)=0) or
        (Length(TSCX.Query1.FieldByName('投诉人').asString)=0) then
         begin
              ShowMessage('请将投诉信息添全.');
         end
      else
         begin
              TSCX.Query1.Post;
              Query1.Close;
              Query1.SQL.Clear;
              Query1.SQL.Add('Update 维修信息 Set 状态=:A Where 投诉编号='''+TSCX.Query1.FieldByName('投诉编号').AsString+'''');
              Query1.ParamByName('A').AsString:=TSCX.Query1.FieldbyName('状况描述').AsString;
              Query1.ExecSQL;
              Close;
         end;
end;

procedure TXGTSXX.BitBtn2Click(Sender: TObject);
begin
     TSCX.Query1.cancel;
     Close;
end;

procedure TXGTSXX.DBEdit10KeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then Perform(WM_NEXTDLGCTL,0,0);
end;

procedure TXGTSXX.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then DBComboBox2.SetFocus;
end;

procedure TXGTSXX.DBComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then DBEdit2.Setfocus;
end;

procedure TXGTSXX.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then DBComboBox1.SetFocus;
end;

procedure TXGTSXX.DBComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then DBEdit4.SetFocus;
end;

procedure TXGTSXX.DBEdit10Enter(Sender: TObject);
begin
     TDBEdit(Sender).Color:=CLAQua;
end;

procedure TXGTSXX.DBEdit10Exit(Sender: TObject);
begin
     TDBEdit(Sender).Color:=CLWinDow;
end;

procedure TXGTSXX.DBMemo1Enter(Sender: TObject);
begin
     DBMemo1.Color:=ClAQUa;
end;

procedure TXGTSXX.DBMemo1Exit(Sender: TObject);
begin
     DBMemo1.Color:=ClWindow;
end;

procedure TXGTSXX.DBComboBox1Exit(Sender: TObject);
begin
     DBComboBox1.color:=CLWindow;
end;

procedure TXGTSXX.DBComboBox1Enter(Sender: TObject);
begin
     DBComboBox1.color:=CLAQua;
end;

procedure TXGTSXX.DBComboBox2Enter(Sender: TObject);
begin
     DBComBoBox2.Color:=CLAQua;
end;

procedure TXGTSXX.DBComboBox2Exit(Sender: TObject);
begin
     DBComboBox2.Color:=CLWindow;
end;

procedure TXGTSXX.SpeedButton1Click(Sender: TObject);
begin
     if Not Assigned(RYLB) then
        begin
             RYLB:=TRYLB.Create(Self);
             RYLB.ShowModal;
        end;
end;

end.