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.