?? guolufrm.pas

?? 本人編寫的有關軍隊營房工作的管理系統
?? PAS
字號:
unit guolufrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, db, StdCtrls, Grids, DBGridEh, Buttons, ExtCtrls, PrnDbgeh;

type
  Tguolu = class(TForm)
    Panel2: TPanel;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton14: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Panel1: TPanel;
    Label1: TLabel;
    DBGridEh1: TDBGridEh;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox11: TCheckBox;
    CheckBox12: TCheckBox;
    CheckBox13: TCheckBox;
    CheckBox14: TCheckBox;
    CheckBox15: TCheckBox;
    CheckBox16: TCheckBox;
    CheckBox17: TCheckBox;
    CheckBox18: TCheckBox;
    PrintDBGridEh1: TPrintDBGridEh;
    CheckBox19: TCheckBox;
    procedure SpeedButton2Click(Sender: TObject);
    procedure DBGridEh1CellClick(Column: TColumnEh);
    procedure DBGridEh1DrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);
    procedure DBGridEh1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGridEh1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure CheckBox7Click(Sender: TObject);
    procedure CheckBox19Click(Sender: TObject);
    procedure CheckBox8Click(Sender: TObject);
    procedure CheckBox9Click(Sender: TObject);
    procedure CheckBox10Click(Sender: TObject);
    procedure CheckBox11Click(Sender: TObject);
    procedure CheckBox12Click(Sender: TObject);
    procedure CheckBox13Click(Sender: TObject);
    procedure CheckBox14Click(Sender: TObject);
    procedure CheckBox15Click(Sender: TObject);
    procedure CheckBox16Click(Sender: TObject);
    procedure CheckBox17Click(Sender: TObject);
    procedure CheckBox18Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure showguolu;
    { Public declarations }
  end;

var
  guolu: Tguolu;

implementation
uses datafrm,gen_q,bbdcfrm,guolutjfrm;
{$R *.dfm}

procedure Tguolu.SpeedButton2Click(Sender: TObject);
begin
yfgldata.guolu.Filtered:=false;
close;
end;

procedure tguolu.showguolu;
begin
guolu.SpeedButton6.Enabled:=(yfgldata.guolu.RecordCount>0) and (yfgldata.guolu.RecNo<>1);
guolu.SpeedButton7.Enabled:=(yfgldata.guolu.RecordCount>0) and (yfgldata.guolu.RecNo<>1);
guolu.SpeedButton8.Enabled:=(yfgldata.guolu.RecordCount>0) and (yfgldata.guolu.RecNo<>yfgldata.guolu.RecordCount);
guolu.SpeedButton9.Enabled:=(yfgldata.guolu.RecordCount>0) and (yfgldata.guolu.RecNo<>yfgldata.guolu.RecordCount);
guolu.SpeedButton11.Enabled:=yfgldata.guolu.RecordCount>0;
guolu.SpeedButton12.Enabled:=yfgldata.guolu.RecordCount>0;
guolu.SpeedButton14.Enabled:=yfgldata.guolu.RecordCount>0;
guolu.SpeedButton1.Enabled:=yfgldata.guolu.RecordCount>0;
end;

procedure Tguolu.DBGridEh1CellClick(Column: TColumnEh);
begin
guolu.showguolu;
end;

procedure Tguolu.DBGridEh1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
guolu.showguolu;
end;

procedure Tguolu.DBGridEh1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
guolu.showguolu;
end;

procedure Tguolu.DBGridEh1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
guolu.showguolu;
end;

procedure Tguolu.FormShow(Sender: TObject);
begin
guolu.showguolu;
end;

procedure Tguolu.SpeedButton6Click(Sender: TObject);
begin
yfgldata.guolu.First;
guolu.showguolu;
end;

procedure Tguolu.SpeedButton7Click(Sender: TObject);
begin
yfgldata.guolu.Prior;
guolu.showguolu;
end;

procedure Tguolu.SpeedButton8Click(Sender: TObject);
begin
yfgldata.guolu.Next;
guolu.showguolu;
end;

procedure Tguolu.SpeedButton9Click(Sender: TObject);
begin
yfgldata.guolu.Last;
guolu.showguolu;
end;

procedure Tguolu.SpeedButton14Click(Sender: TObject);
begin
application.CreateForm(tbbdc,bbdc);
with bbdc do
begin
  listbox1.Items.Add('序號');
  listbox1.Items.Add('單位代碼');
  listbox1.Items.Add('住用單位');
  listbox1.Items.Add('坐落號');
  listbox1.Items.Add('棟號');
  listbox1.Items.Add('型號');
  listbox1.Items.Add('蒸發量');
  listbox1.Items.Add('額定壓力');
  listbox1.Items.Add('使用壓力');
  listbox1.Items.Add('額定溫度');
  listbox1.Items.Add('燃料類型');
  listbox1.Items.Add('鍋爐用途');
  listbox1.Items.Add('質量狀況');
  listbox1.Items.Add('供熱介質');
  listbox1.Items.Add('水處理方式');
  listbox1.Items.Add('消煙除塵方式');
  listbox1.Items.Add('生產廠家');
  listbox1.Items.Add('安裝年份');
  listbox1.Items.Add('是否登記');
  listbox1.Items.Add('檢驗部門');
  listbox1.Items.Add('變更依據');
  vps_filter:=yfgldata.guolu.Filter;
  vps_name:='yfgl_guolu';
  edit1.Text:='鍋爐分臺登記（變更）表';
  try
    ShowModal;
  finally
    free;
  end;
end;
end;

procedure Tguolu.SpeedButton5Click(Sender: TObject);
begin
application.CreateForm(tf_query,f_query);
f_query.tablename:='yfgl_guolu';
f_query.fields.Clear;
f_query.fields.Add('單位代碼');
f_query.fields.Add('住用單位');
f_query.fields.Add('坐落號');
f_query.fields.Add('棟號');
f_query.fields.Add('型號');
f_query.fields.Add('蒸發量');
f_query.fields.Add('額定壓力');
f_query.fields.Add('使用壓力');
f_query.fields.Add('額定溫度');
f_query.fields.Add('燃料類型');
f_query.fields.Add('鍋爐用途');
f_query.fields.Add('質量狀況');
f_query.fields.Add('供熱介質');
f_query.fields.Add('水處理方式');
f_query.fields.Add('消煙除塵方式');
f_query.fields.Add('生產廠家');
f_query.fields.Add('安裝年份');
f_query.fields.Add('是否登記');
f_query.fields.Add('檢驗部門');
f_query.fields.Add('變更依據');
f_query.fieldsalias.Clear;
f_query.fieldsalias.Add('單位代碼');
f_query.fieldsalias.Add('住用單位');
f_query.fieldsalias.Add('坐落號');
f_query.fieldsalias.Add('棟號');
f_query.fieldsalias.Add('型號');
f_query.fieldsalias.Add('蒸發量');
f_query.fieldsalias.Add('額定壓力');
f_query.fieldsalias.Add('使用壓力');
f_query.fieldsalias.Add('額定溫度');
f_query.fieldsalias.Add('燃料類型');
f_query.fieldsalias.Add('鍋爐用途');
f_query.fieldsalias.Add('質量狀況');
f_query.fieldsalias.Add('供熱介質');
f_query.fieldsalias.Add('水處理方式');
f_query.fieldsalias.Add('消煙除塵方式');
f_query.fieldsalias.Add('生產廠家');
f_query.fieldsalias.Add('安裝年份');
f_query.fieldsalias.Add('是否登記');
f_query.fieldsalias.Add('檢驗部門');
f_query.fieldsalias.Add('變更依據');
try
  f_query.ShowModal;
  if f_query.conf then
    begin
    yfgldata.guolu.Filter:=f_query.filtervalue;
    yfgldata.guolu.Filtered:=true;
    guolu.showguolu;
    end
  else
    begin
    yfgldata.guolu.Filtered:=false;
    guolu.showguolu;
    end;
finally
  f_query.Free;
end;
end;

procedure Tguolu.SpeedButton1Click(Sender: TObject);
begin
guolu.PrintDBGridEh1.PageHeader.CenterText.Clear;
guolu.PrintDBGridEh1.PageHeader.CenterText.Add('鍋爐分臺登記（變更）表');
guolu.PrintDBGridEh1.Preview;
end;

procedure Tguolu.CheckBox1Click(Sender: TObject);
begin
guolu.DBGridEh1.Columns[0].Visible:=guolu.CheckBox1.Checked;
end;

procedure Tguolu.CheckBox2Click(Sender: TObject);
begin
guolu.DBGridEh1.Columns[1].Visible:=guolu.CheckBox2.Checked;
end;

procedure Tguolu.CheckBox3Click(Sender: TObject);
begin
guolu.DBGridEh1.Columns[2].Visible:=guolu.CheckBox3.Checked;
end;

procedure Tguolu.CheckBox4Click(Sender: TObject);
begin
guolu.DBGridEh1.Columns[5].Visible:=guolu.CheckBox4.Checked;
end;

procedure Tguolu.CheckBox5Click(Sender: TObject);
begin
guolu.DBGridEh1.Columns[6].Visible:=guolu.CheckBox5.Checked;
end;

procedure Tguolu.CheckBox6Click(Sender: TObject);
begin
guolu.DBGridEh1.Columns[7].Visible:=guolu.CheckBox6.Checked;
end;

procedure Tguolu.CheckBox7Click(Sender: TObject);
begin
guolu.DBGridEh1.Columns[9].Visible:=guolu.CheckBox7.Checked;
end;

procedure Tguolu.CheckBox19Click(Sender: TObject);
begin
guolu.DBGridEh1.Columns[8].Visible:=guolu.CheckBox19.Checked;
end;

procedure Tguolu.CheckBox8Click(Sender: TObject);
begin
guolu.DBGridEh1.Columns[10].Visible:=guolu.CheckBox8.Checked;
end;

procedure Tguolu.CheckBox9Click(Sender: TObject);
begin
guolu.DBGridEh1.Columns[11].Visible:=guolu.CheckBox9.Checked;
end;

procedure Tguolu.CheckBox10Click(Sender: TObject);
begin
guolu.DBGridEh1.Columns[12].Visible:=guolu.CheckBox10.Checked;
end;

procedure Tguolu.CheckBox11Click(Sender: TObject);
begin
guolu.DBGridEh1.Columns[13].Visible:=guolu.CheckBox11.Checked;
end;

procedure Tguolu.CheckBox12Click(Sender: TObject);
begin
guolu.DBGridEh1.Columns[14].Visible:=guolu.CheckBox12.Checked;
end;

procedure Tguolu.CheckBox13Click(Sender: TObject);
begin
guolu.DBGridEh1.Columns[15].Visible:=guolu.CheckBox13.Checked;
end;

procedure Tguolu.CheckBox14Click(Sender: TObject);
begin
guolu.DBGridEh1.Columns[16].Visible:=guolu.CheckBox14.Checked;
end;

procedure Tguolu.CheckBox15Click(Sender: TObject);
begin
guolu.DBGridEh1.Columns[17].Visible:=guolu.CheckBox15.Checked;
end;

procedure Tguolu.CheckBox16Click(Sender: TObject);
begin
guolu.DBGridEh1.Columns[18].Visible:=guolu.CheckBox16.Checked;
end;

procedure Tguolu.CheckBox17Click(Sender: TObject);
begin
guolu.DBGridEh1.Columns[19].Visible:=guolu.CheckBox17.Checked;
end;

procedure Tguolu.CheckBox18Click(Sender: TObject);
begin
guolu.DBGridEh1.Columns[20].Visible:=guolu.CheckBox18.Checked;
end;

procedure Tguolu.SpeedButton10Click(Sender: TObject);
begin
application.CreateForm(tguolutj,guolutj);
guolutj.Caption:='添加新記錄';
guolutj.gtj:=true;
try
  guolutj.ShowModal;
finally
  guolutj.Free;
end;
end;

procedure Tguolu.SpeedButton11Click(Sender: TObject);
var
  i:integer;
begin
if messagebox(guolu.handle,'請確認要刪除鍋爐記錄嗎？','營房工作管理系統',33)=1 then
  begin
    yfgldata.guolu.Delete;
    yfgldata.guolu.First;
    for i:=1 to yfgldata.guolu.RecordCount do
      begin
        yfgldata.guolu.Edit;
        yfgldata.guolu.FieldByName('序號').AsInteger:=i;
        yfgldata.guolu.Post;
        yfgldata.guolu.Next;
      end;
    yfgldata.guolu.First;
    guolu.showguolu;
  end;
end;

procedure Tguolu.SpeedButton12Click(Sender: TObject);
begin
application.CreateForm(tguolutj,guolutj);
guolutj.Caption:='修改記錄';
guolutj.gtj:=false;
guolutj.dxLookupTreeView1.Text:=yfgldata.guolu.FieldByName('單位代碼').AsString;
guolutj.dxLookupTreeView1.Enabled:=false;
guolutj.Edit2.Text:=yfgldata.guolu.FieldByName('住用單位').AsString;
guolutj.ComboBox1.Items.Clear;
guolutj.ComboBox1.Items.Add(yfgldata.guolu.FieldByName('坐落號').AsString);
guolutj.ComboBox1.ItemIndex:=0;
guolutj.ComboBox1.Enabled:=false;
guolutj.Edit1.Text:=yfgldata.guolu.FieldByName('棟號').AsString;
guolutj.Edit1.ReadOnly:=true;
guolutj.Edit3.Text:=yfgldata.guolu.FieldByName('型號').AsString;
guolutj.DBNumberEditEh1.Value:=yfgldata.guolu.FieldByName('蒸發量').AsFloat;
guolutj.DBNumberEditEh2.Value:=yfgldata.guolu.FieldByName('額定壓力').AsFloat;
guolutj.DBNumberEditEh4.Value:=yfgldata.guolu.FieldByName('使用壓力').AsFloat;
guolutj.Edit4.Text:=yfgldata.guolu.FieldByName('水處理方式').AsString;
guolutj.DBNumberEditEh3.Value:=yfgldata.guolu.FieldByName('額定溫度').AsInteger;
guolutj.Edit5.Text:=yfgldata.guolu.FieldByName('燃料類型').AsString;
guolutj.Edit6.Text:=yfgldata.guolu.FieldByName('鍋爐用途').AsString;
guolutj.Edit7.Text:=yfgldata.guolu.FieldByName('質量狀況').AsString;
guolutj.Edit8.Text:=yfgldata.guolu.FieldByName('供熱介質').AsString;
guolutj.Edit9.Text:=yfgldata.guolu.FieldByName('消煙除塵方式').AsString;
guolutj.Edit10.Text:=yfgldata.guolu.FieldByName('生產廠家').AsString;
guolutj.Edit11.Text:=yfgldata.guolu.FieldByName('檢驗部門').AsString;
guolutj.Edit12.Text:=yfgldata.guolu.FieldByName('變更依據').AsString;
guolutj.DBNumberEditEh5.Value:=yfgldata.guolu.FieldByName('安裝年份').AsInteger;
if yfgldata.guolu.FieldByName('是否登記').AsString='是' then
  guolutj.CheckBox1.Checked:=true
else
  guolutj.CheckBox1.Checked:=false;
try
  guolutj.ShowModal;
finally
  guolutj.Free;
end;
end;

end.
?? 文件大小 1892 K
?? 上傳用戶 sunny_02
?? 所屬分類其他行業
??? 相關標簽

#編寫 #管理系統
?? 快捷鍵說明

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

?? guolufrm.pas

?? 快捷鍵說明
