mc_tsdj.pas

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

unit MC_TSDJ;

interface

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

type
  TTSDJ = class(TForm)
    GroupBox1: TGroupBox;
    Table1: TTable;
    Label1: TLabel;
    DataSource1: TDataSource;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBMemo1: TDBMemo;
    Label10: TLabel;
    DBComboBox1: TDBComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DBNavigator1: TDBNavigator;
    BitBtn4: TBitBtn;
    Label11: TLabel;
    DBEdit3: TDBEdit;
    Label12: TLabel;
    DBEdit9: TDBEdit;
    Label13: TLabel;
    Label14: TLabel;
    Table1BDEDesigner3: TStringField;
    Table1BDEDesigner4: TStringField;
    Table1BDEDesigner5: TStringField;
    Table1BDEDesigner6: TStringField;
    Table1BDEDesigner7: TDateTimeField;
    Table1BDEDesigner9: TStringField;
    Table1BDEDesigner10: TStringField;
    Table1BDEDesigner11: TMemoField;
    Table1BDEDesigner12: TStringField;
    Table1BDEDesigner13: TStringField;
    Table1BDEDesigner14: TStringField;
    Table1BDEDesigner15: TStringField;
    Table1BDEDesigner16: TStringField;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox3: TDBLookupComboBox;
    DBLookupComboBox4: TDBLookupComboBox;
    Bevel1: TBevel;
    Table2: TTable;
    DataSource2: TDataSource;
    Table2BDEDesigner: TIntegerField;
    Table2BDEDesigner2: TStringField;
    Table3: TTable;
    Table3BDEDesigner: TIntegerField;
    Table3BDEDesigner2: TStringField;
    Table3BDEDesigner3: TStringField;
    DataSource3: TDataSource;
    Table4: TTable;
    DataSource4: TDataSource;
    Table4BDEDesigner: TStringField;
    Table4BDEDesigner2: TStringField;
    Table4BDEDesigner3: TStringField;
    Table5: TTable;
    Table5BDEDesigner: TIntegerField;
    Table5BDEDesigner2: TStringField;
    DataSource5: TDataSource;
    Query1: TQuery;
    DateTimePicker1: TDateTimePicker;
    Table1BDEDesigner: TStringField;
    BitBtn5: TBitBtn;
    DBEdit1: TDBEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure DBEdit9KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);

  private

    { Private declarations }

  public
    { Public declarations }

  end;

var
  TSDJ: TTSDJ;

implementation

uses MC_TSLL, MC_WXDJ, MC_RYLB, MC_MainForm;

{$R *.DFM}
procedure TTSDJ.FormShow(Sender: TObject);
begin
  if MainForm.Query1.Locate('使用选项','小区投诉登记',[loCaseInsensitive]) then
  begin
    if MainForm.Query1.FieldByName('读写').AsString='读' then
    begin
      BitBtn1.Enabled:=False;
      BitBtn2.Enabled:=False;
      BitBtn3.Enabled:=False;
    end;
  end;
end;

procedure TTSDJ.BitBtn1Click(Sender: TObject);   //添加或保存投诉操作
var y: String;
begin
  if BitBtn1.Caption='添加[&I]' then  //添加投诉信息操作
  begin
   table1.last;
   if table1.RecordCount>0 then  y:=formatfloat('0000',Table1.FieldByName('投诉编号').AsInteger+1) else y:=formatfloat('0000',1);
   Table1.Append;   //添加一条新记录
   Table1.FieldByName('投诉编号').Asstring:=y;
   BitBtn1.Caption:='保存[&S]';
   BitBtn2.Caption:='取消[&U]';
   GroupBox1.Enabled:=True;
   BitBtn3.Enabled:=False;
   BitBtn4.Enabled:=False;
   BitBtn5.Enabled:=False;
   //DBNavigator1.Enabled:=False;
   dbedit9.SetFocus;
  End
  Else   //保存投诉信息操作
  begin
   if (Length(Table1.FieldByName('居住位置').asString)=0) or (Length(Table1.FieldByName('投诉时间').asString)=0) or
      (Length(Table1.FieldByName('投诉人').asString)=0) then //如果投诉信息没有添全，提示信息
      begin
        ShowMessage('请将投诉信息添全.');
      End
   Else  //如果投诉信息添全，保存投诉信息
     begin
       Table1.Post;  //提交保存
       BitBtn1.Caption:='添加[&I]';
       BitBtn2.Caption:='修改[&E]';
       Bitbtn3.Enabled:=True;
       BitBtn4.Enabled:=True;
       BitBtn5.Enabled:=True;
       DBNavigator1.Enabled:=True;
       GroupBox1.Enabled:=False;
    end;
  end;
end;

procedure TTSDJ.BitBtn2Click(Sender: TObject);  //修改和取消操作
begin
  if BitBtn2.Caption='修改[&E]' then  //修改信息操作
  begin
    Table1.Edit;   //编辑投诉信息
    BitBtn2.Caption:='取消[&U]';
    BitBtn1.Caption:='保存[&S]';
    GroupBox1.Enabled:=True;
    BitBtn3.Enabled:=False;
    BitBtn4.Enabled:=False;
    BitBtn5.Enabled:=False;
    DBNavigator1.Enabled:=False;
    dbedit9.SetFocus;
  End
  Else   //取消操作
  begin
    BitBtn1.Caption:='添加[&I]';
    BitBtn2.Caption:='修改[&E]';
    BitBtn3.Enabled:=True;
    BitBtn4.Enabled:=True;
    BitBtn5.Enabled:=True;
    DBNavigator1.Enabled:=True;
    GroupBox1.Enabled:=False;
    Table1.Cancel;
  end;
end;

procedure TTSDJ.BitBtn3Click(Sender: TObject);   //删除投诉信息
begin
  If Table1.RecordCount <> 0 Then
  if MessageDLG('是否删除当前投诉信息?',mtCustom,[mbYes,mbNo],0)=mrYes then  Table1.Delete;
end;

procedure TTSDJ.BitBtn4Click(Sender: TObject);   //投诉信息浏览
begin
  If Not Assigned(TSLL) Then
  begin
    TSLL:=TTSLL.Create(Self);
    TSLL.ShowModal;
  end;
end;

procedure TTSDJ.DBEdit9KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then PerForm(WM_NEXTDLGCTL,0,0);  //跳转焦点到指定控件
end;

procedure TTSDJ.BitBtn5Click(Sender: TObject);  //将数据连接到维修管理中
begin
  If Not Assigned(WXDJ) Then
  begin
    WXDJ:=TWXDJ.Create(Self);
    WXDJ.Table1.Append;   //添加一条新记录到维修表中
    WXDJ.BitBtn1.Caption:='保存[&S]';
    WXDJ.BitBtn2.Caption:='取消[&U]';
    WXDJ.BitBtn3.Enabled:=False;
    WXDJ.BitBtn4.Enabled:=False;
    WXDJ.DBNavigator1.Enabled:=False;
    WXDJ.GroupBox1.Enabled:=True;
    WXDJ.Table1.FieldByName('投诉编号').AsString:=Table1.FieldByName('投诉编号').AsString;
    WXDJ.Table1.FieldByName('居住位置').AsString:=Table1.FieldByName('居住位置').AsString;
    WXDJ.Table1.FieldByName('接待人').AsString:=Table1.FieldByName('接待员').AsString;
    WXDJ.ShowModal;     //调入维修登记窗口
  end;
end;

procedure TTSDJ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  TSDJ.Release;
  TSDJ:=Nil;
end;
procedure TTSDJ.BitBtn6Click(Sender: TObject);
begin
CLOSE;
end;

end.