mc_wxdj.pas

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

unit MC_WXDJ;

interface

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

type
  TWXDJ = class(TForm)
    Table1: TTable;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner3: TStringField;
    Table1BDEDesigner4: TStringField;
    Table1BDEDesigner5: TStringField;
    Table1BDEDesigner6: TStringField;
    Table1BDEDesigner7: TFloatField;
    Table1BDEDesigner8: TStringField;
    Table1BDEDesigner9: TDateTimeField;
    Table1BDEDesigner10: TDateTimeField;
    Table1BDEDesigner11: TStringField;
    Table1BDEDesigner12: TMemoField;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    DBEdit10: TDBEdit;
    Label11: TLabel;
    DBEdit11: TDBEdit;
    Label12: TLabel;
    DBMemo1: TDBMemo;
    DBNavigator1: TDBNavigator;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    Table1BDEDesigner13: TStringField;
    Label13: TLabel;
    DBComboBox1: TDBComboBox;
    Query1: TQuery;
    Table1BDEDesigner14: TStringField;
    Label14: TLabel;
    DBText1: TDBText;
    Bevel1: TBevel;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    Table4: TTable;
    Table4BDEDesigner: TStringField;
    Table4BDEDesigner2: TStringField;
    Table4BDEDesigner3: TStringField;
    DataSource4: TDataSource;
    Table5: TTable;
    Table5BDEDesigner: TIntegerField;
    Table5BDEDesigner2: TStringField;
    DataSource5: TDataSource;
    Table1BDEDesigner15: TIntegerField;
    DateTimePicker1: TDateTimePicker;
    Table1BDEDesigner: TStringField;
    BitBtn6: TBitBtn;
    DBEdit1: TDBEdit;
    Label1: TLabel;
    procedure BitBtn5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WXDJ: TWXDJ;

implementation

uses MC_WXXXLL, MC_TSDJ, MC_RYLB, MC_MainForm;

{$R *.DFM}
procedure TWXDJ.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 TWXDJ.BitBtn1Click(Sender: TObject);   //添加或保存数据
begin
if BitBtn1.Caption='添加[&I]' then    //添加数据
 begin
  Table1.Append;  //增加一条新记录
  BitBtn1.Caption:='保存[&S]';
  BitBtn2.Caption:='取消[&U]';
  BitBtn3.Enabled:=False;
  BitBtn4.Enabled:=False;
  BitBtn6.Enabled:=True;
  DBNavigator1.Enabled:=False;
  GroupBox1.Enabled:=True;
  DBEdit2.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('请输入维修相关信息');
   DBEdit2.SetFocus;
  End
  Else  //保存数据添加
  begin
    BitBtn1.Caption:='添加[&I]';
    BitBtn2.Caption:='修改[&E]';
    BitBtn3.Enabled:=True;
    BitBtn4.Enabled:=True;
    BitBtn6.Enabled:=False;
    DBNavigator1.Enabled:=True;
    GroupBox1.Enabled:=False;
    try
      Query1.Close;
      Query1.SQL.Clear;
      Query1.SQL.Add('Select MAX(编号) From 维修信息');
      Query1.Open;
      Table1.FieldByName('编号').AsInteger:=Query1.Fields[0].AsInteger+1;
      DateTimePicker1.Date:=Table1.FieldByName('开工时间').AsDateTime;
      DateTimePicker1.Time:=0;
      Query1.Close;
      Query1.SQL.Clear;
      Query1.SQL.Add('Select Count(编号) From 维修信息 Where 开工时间>:A and 开工时间<:B');
      Query1.ParamByname('A').AsDatetime:=DateTimePicker1.DateTime;
      Query1.ParamByName('B').AsDatetime:=DateTimePicker1.DateTime+1;
      Query1.Open;
      Table1.FieldByName('维修编号').AsString:=DateTimeTOStr(DateTimePicker1.DateTime)+'00'+IntToStr(Query1.Fields[0].AsInteger+1);
      Table1.Post;
    Except
      ShowMessage('重复维修编号，保存失败.');
    end;
  end;
 end;
end;

procedure TWXDJ.BitBtn2Click(Sender: TObject);   //修改或取消操作
begin
  if BitBtn2.Caption='修改[&E]' then
  begin
    Table1.Edit;  //数据处于编辑状态
    BitBtn1.Caption:='保存[&S]';
    BitBtn2.Caption:='取消[&U]';
    BitBtn3.Enabled:=False;
    BitBtn4.Enabled:=False;
    BitBtn6.Enabled:=True;
    DBNavigator1.Enabled:=False;
    GroupBox1.Enabled:=True;
    DBEdit2.Setfocus;
  End
  Else   //取消操作
  begin
    BitBtn1.Caption:='添加[&I]';
    BitBtn2.Caption:='修改[&E]';
    BitBtn3.Enabled:=True;
    BitBtn4.Enabled:=True;
    BitBtn6.Enabled:=False;
    DBNavigator1.Enabled:=True;
    GroupBox1.Enabled:=False;
    Table1.Cancel;
  end;
end;

procedure TWXDJ.BitBtn3Click(Sender: TObject);   //删除维修数据
begin
  If Table1.RecordCount <> 0 Then
  if MessageDlg('是否删除当前记录?',mtCustom,[mbYes,mbNo],0)=mrYes then
  Table1.Delete;
end;

procedure TWXDJ.BitBtn4Click(Sender: TObject);  //浏览维修数据
begin
  If Not Assigned(WXXXLL) Then
  begin
    WXXXLL:=TWXXXLL.Create(Self);
    WXXXLL.ShowModal;
  end;
end;

procedure TWXDJ.BitBtn6Click(Sender: TObject);  //添加或选择响应投诉信息
begin
  If Not Assigned(TSDJ) Then
  begin
    TSDJ:=TTSDJ.Create(Self);
    TSDJ.ShowModal;
  end;
end;


procedure TWXDJ.BitBtn5Click(Sender: TObject);   //退出
begin
  Close;
end;

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