?? mc_insert.pas

?? 物業管理 1.建立一個WYGL數據庫
?? PAS
?? 第 1 頁 / 共 2 頁
字號:
上一頁 12
             BitBtn5.Caption:='保存填寫';
             BitBtn3.Caption:='取消填寫';
             DBEdit3.BorderStyle:=bsSingle;
             DBEdit3.Color:=clWhite;
             DBEdit3.Enabled:=True;
             DBEdit3.SetFocus;
             DBEdit2.BorderStyle:=bsSingle;
             DBEdit2.Color:=clWhite;
             DBEdit2.Enabled:=True;
             DateTimePicker2.Enabled:=True;
             Table3.Edit;
             Exit;
        end;
     if BitBtn5.Caption='保存填寫' then
        begin
             BitBtn5.Caption:='填寫讀數';
             BitBtn3.Caption:='讀數初始化';
             DBEdit3.BorderStyle:=bsNone;
             DBEdit3.Color:=ClScrollBar;
             DBEdit3.Enabled:=False;
             DBEdit2.BorderStyle:=bsNone;
             DBEdit2.Color:=ClScrollBar;
             DBEdit2.Enabled:=False;
             DateTimePicker2.Enabled:=False;
             Table3.FieldByName('使用數').AsInteger:=Table3.FieldByName('本月讀數').AsInteger
                   -Table3.FieldByName('上月讀數').AsInteger;
             Table3.FieldByName('應收金額').AsFloat:=Table3.FieldByName('使用數').AsInteger
                   *Table3.FieldByName('收費金額').AsFloat;
             Table3.Post;
             Exit;
        end;
     if BitBtn5.Caption='取消讀數' then
        begin
             BitBtn3.Caption:='讀數初始化';
             BitBtn5.Caption:='填寫讀數';
             DBEdit4.BorderStyle:=bsNone;
             DBEdit4.Color:=ClScrollBar;
             DBEDit4.Enabled:=False;
             Table3.Cancel;
             Exit;
        end;
//-------------------------------------------------
     end;
end;

procedure TMInsert.BitBtn6Click(Sender: TObject);
begin
if Table4.RecordCount<>0 then
begin
//-------------------------------------------------------
     if BitBtn6.Caption='取消填寫' then
        begin
             BitBtn7.Caption:='填寫讀數';
             BitBtn6.Caption:='讀數初始化';
             DBEdit10.BorderStyle:=bsNone;
             DBEdit10.Color:=ClScrollBar;
             DBEdit10.Enabled:=False;
             DBEdit11.BorderStyle:=bsNone;
             DBEdit11.Color:=ClScrollBar;
             DBEdit11.Enabled:=False;
             DateTimePicker4.Enabled:=False;
             Table4.Cancel;
             Exit;
        end;
     if BitBtn6.Caption='讀數初始化' then
        begin
             BitBtn6.Caption:='保存讀數';
             BitBtn7.Caption:='取消讀數';
             DBEdit12.BorderStyle:=bsSingle;
             DBEdit12.Color:=clWhite;
             DBEdit12.Enabled:=True;
             Table4.Edit;
             DBEdit12.SetFocus;
             Exit;
        end;
     if BitBtn6.Caption='保存讀數' then
        begin
             if Length(Table4.FieldByName('上月讀數').AsString)=0 then
                ShowMessage('請輸入上月讀數.')
             else
                begin
                     BitBtn6.Caption:='讀數初始化';
                     BitBtn7.Caption:='填寫讀數';
                     DBEdit12.BorderStyle:=bsNone;
                     DBEdit12.Color:=ClScrollBar;
                     DBEdit12.Enabled:=False;
                     DateTimePicker4.Enabled:=False;
                     Table4.Post;
                     Exit;
                end;
        end;
//--------------------------------------------------------        
     end;
end;

procedure TMInsert.BitBtn7Click(Sender: TObject);
begin
if Table4.RecordCount<>0 then
begin
//-------------------------------------------------------
     if BitBtn7.Caption='填寫讀數' then
        begin
             BitBtn7.Caption:='保存填寫';
             BitBtn6.Caption:='取消填寫';
             DBEdit11.BorderStyle:=bsSingle;
             DBEdit11.Color:=clWhite;
             DBEdit11.Enabled:=True;
             DBEdit11.SetFocus;
             DBEdit10.BorderStyle:=bsSingle;
             DBEdit10.Color:=clWhite;
             DBEdit10.Enabled:=True;
             DateTimePicker4.Enabled:=True;
             Table4.Edit;
             Exit;
        end;
     if BitBtn7.Caption='保存填寫' then
        begin
             BitBtn7.Caption:='填寫讀數';
             BitBtn6.Caption:='讀數初始化';
             DBEdit11.BorderStyle:=bsNone;
             DBEdit11.Color:=ClScrollBar;
             DBEdit11.Enabled:=False;
             DBEdit10.BorderStyle:=bsNone;
             DBEdit10.Color:=ClScrollBar;
             DBEdit10.Enabled:=False;
             DateTimePicker4.Enabled:=False;
             Table4.FieldByName('使用數').AsInteger:=Table4.FieldByName('本月讀數').AsInteger
                   -Table4.FieldByName('上月讀數').AsInteger;
             Table4.FieldByName('應收金額').AsFloat:=Table4.FieldByName('使用數').AsInteger
                   *Table4.FieldByName('收費金額').AsFloat;
             Table4.Post;
             Exit;
        end;
     if BitBtn7.Caption='取消讀數' then
        begin
             BitBtn6.Caption:='讀數初始化';
             BitBtn7.Caption:='填寫讀數';
             DBEdit12.BorderStyle:=bsNone;
             DBEdit12.Color:=ClScrollBar;
             DBEDit12.Enabled:=False;
             DateTimePicker4.Enabled:=False;
             Table4.Cancel;
             Exit;
        end;
//----------------------------------------------------
     end;
end;

procedure TMInsert.BitBtn8Click(Sender: TObject);
begin
if Table5.RecordCount<>0 then
begin
//-------------------------------------------------------
     if BitBtn8.Caption='取消填寫' then
        begin
             BitBtn9.Caption:='填寫讀數';
             BitBtn8.Caption:='讀數初始化';
             DBEdit18.BorderStyle:=bsNone;
             DBEdit18.Color:=ClScrollBar;
             DBEdit18.Enabled:=False;
             DBEdit19.BorderStyle:=bsNone;
             DBEdit19.Color:=ClScrollBar;
             DBEdit19.Enabled:=False;
             DateTimePicker6.Enabled:=False;
             Table5.Cancel;
             Exit;
        end;
     if BitBtn8.Caption='讀數初始化' then
        begin
             BitBtn8.Caption:='保存讀數';
             BitBtn9.Caption:='取消讀數';
             DBEdit20.BorderStyle:=bsSingle;
             DBEdit20.Color:=clWhite;
             DBEdit20.Enabled:=True;
             Table5.Edit;
             DBEdit20.SetFocus;
             Exit;
        end;
     if BitBtn8.Caption='保存讀數' then
        begin
             if Length(Table5.FieldByName('上月讀數').AsString)=0 then
                ShowMessage('請輸入上月讀數.')
             else
                begin
                     BitBtn8.Caption:='讀數初始化';
                     BitBtn9.Caption:='填寫讀數';
                     DBEdit20.BorderStyle:=bsNone;
                     DBEdit20.Color:=ClScrollBar;
                     DBEdit20.Enabled:=False;
                     DateTimePicker6.Enabled:=False;
                     Table5.Post;
                     Exit;
                end;
        end;
//-------------------------------------------------
     end;
end;

procedure TMInsert.BitBtn9Click(Sender: TObject);
begin
if Table5.RecordCount<>0 then
begin
//-------------------------------------------------------
     if BitBtn9.Caption='填寫讀數' then
        begin
             BitBtn9.Caption:='保存填寫';
             BitBtn8.Caption:='取消填寫';
             DBEdit19.BorderStyle:=bsSingle;
             DBEdit19.Color:=clWhite;
             DBEdit19.Enabled:=True;
             DBEdit19.SetFocus;
             DBEdit18.BorderStyle:=bsSingle;
             DBEdit18.Color:=clWhite;
             DBEdit18.Enabled:=True;
             DateTimePicker6.Enabled:=True;
             Table5.Edit;
             Exit;
        end;
     if BitBtn9.Caption='保存填寫' then
        begin
             BitBtn9.Caption:='填寫讀數';
             BitBtn8.Caption:='讀數初始化';
             DBEdit19.BorderStyle:=bsNone;
             DBEdit19.Color:=ClScrollBar;
             DBEdit19.Enabled:=False;
             DBEdit18.BorderStyle:=bsNone;
             DBEdit18.Color:=ClScrollBar;
             DBEdit18.Enabled:=False;
             DateTimePicker6.Enabled:=False;
             Table5.FieldByName('使用數').AsInteger:=Table5.FieldByName('本月讀數').AsInteger
                   -Table5.FieldByName('上月讀數').AsInteger;
             Table5.FieldByName('應收金額').AsFloat:=Table5.FieldByName('使用數').AsInteger
                   *Table5.FieldByName('收費金額').AsFloat;
             Table5.Post;
             Exit;
        end;
     if BitBtn9.Caption='取消讀數' then
        begin
             BitBtn8.Caption:='讀數初始化';
             BitBtn9.Caption:='填寫讀數';
             DBEdit20.BorderStyle:=bsNone;
             DBEdit20.Color:=ClScrollBar;
             DBEdit20.Enabled:=False;
             DateTimePicker6.Enabled:=False;
             Table5.Cancel;
             Exit;
        end;
//--------------------------------------------------------------        
     end;
end;

procedure TMInsert.DateTimePicker2CloseUp(Sender: TObject);
begin
     Table3.FieldByName('計費終止日期').AsDateTime:=DateTimePicker2.Date;
end;

procedure TMInsert.DateTimePicker4CloseUp(Sender: TObject);
begin
     Table4.FieldByName('計費終止日期').AsDateTime:=DateTimePicker4.Date;
end;

procedure TMInsert.DateTimePicker6CloseUp(Sender: TObject);
begin
     Table5.FieldByName('計費終止日期').AsDateTime:=DateTimePicker6.Date;
end;

procedure TMInsert.BitBtn11Click(Sender: TObject);
begin
     with Query5 do
     begin
          Close;
          SQL.Clear;
          SQL.Add('Select 費用科目,應收金額,實收金額,剩余金額,減免金額 From 歷史其它費用');
          SQL.Add('where 計費起始日期>=:A and 計費終止日期<=:B and 收費編號=:C');
          SQL.Add('ORDER BY 費用科目 ASC');
          ParamByName('A').AsDateTime:=DateTimePicker9.Date;
          ParamByName('B').AsDateTime:=DateTimePicker10.Date;
          ParamByName('C').AsString:=Table2.FieldByName('房間編號').AsString;
          Open;
     end;
end;

procedure TMInsert.BitBtn10Click(Sender: TObject);
begin
     with Query4 do
     begin
          Close;
          SQL.Clear;
          SQL.Add('Select 費用科目,應收金額,實收金額,剩余金額,減免金額 From 歷史常用費用');
          SQL.Add('where 計費起始日期>=:A and 計費終止日期<=:B and 收費編號=:C');
          SQL.Add('ORDER BY 費用科目 ASC');
          ParamByName('A').AsDateTime:=DateTimePicker7.Date;
          ParamByName('B').AsDateTime:=DateTimePicker8.Date;
          ParamByName('C').AsString:=Table2.FieldByName('房間編號').AsString;
          Open;
     end;
end;

procedure TMInsert.BitBtn1Click(Sender: TObject);
begin
     if BitBtn1.Caption='統計指定時間內的[常用費用]信息' then
        begin
             GroupBox7.Visible:=True;
             BitBtn1.Caption:='關閉[常用費用]信息';
        end
     else
        begin
             Query4.Close;
             GroupBox7.Visible:=False;
             BitBtn1.Caption:='統計指定時間內的[常用費用]信息';             
        end;
end;

procedure TMInsert.BitBtn2Click(Sender: TObject);
begin
     if BitBtn2.Caption='統計指定時間內的[其它費用]信息' then
        begin
             BitBtn2.Caption:='關閉[其它費用]信息';
             GroupBox8.Visible:=True;
        end
     else
        begin
             Query5.Close;
             GroupBox8.Visible:=False;
             BitBtn2.Caption:='統計指定時間內的[其它費用]信息';
        end;
end;

procedure TMInsert.FormShow(Sender: TObject);
var a : Integer;
begin
     if Table1.RecordCount<>0 then
     begin
     with Query6 do
     begin
          Close;
          SQL.Clear;
          SQL.Add('Select Max(單元) From 房屋信息表 Where 大樓名=:A');
          ParamByName('A').AsString:=Table1.FieldByName('大樓名稱').AsString;
          Open;
     end;
     For a:=1 to Query6.Fields[0].AsInteger do
     begin
          ComboBox1.Items.Add(IntToStr(a));
     end;
     end;
     Query6.Close;
     if MainForm.Query1.Locate('使用選項','填寫收費通知單',[loCaseInsensitive]) then
        begin
             if MainForm.Query1.FieldByName('讀寫').AsString='讀' then
                begin
                     bitbtn3.Enabled:=False;
                     bitbtn5.Enabled:=False;
                     bitbtn6.Enabled:=False;
                     bitbtn7.Enabled:=False;
                     bitbtn8.Enabled:=False;
                end;
        end;
end;

procedure TMInsert.ComboBox1Change(Sender: TObject);
begin
     Table2.Filter:='單元 = '''+ComboBox1.Items[ComboBox1.ItemIndex]+'''';
     Table2.Filtered:=True;
end;

end.
上一頁 12
?? 文件大小 6772 K
?? 上傳用戶 suroot2005
?? 所屬分類數據庫系統
??? 相關標簽

#WYGL #物業管理 #數據庫
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? mc_insert.pas

?? 快捷鍵說明
