?? xjyffrm.pas

?? 本人編寫的有關(guān)軍隊(duì)營房工作的管理系統(tǒng)
?? PAS
字號(hào):
unit xjyffrm;

interface

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

type
  Txjyf = class(TForm)
    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;
    Panel2: TPanel;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton14: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    PrintDBGridEh1: TPrintDBGridEh;
    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 SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton12Click(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 CheckBox8Click(Sender: TObject);
    procedure CheckBox9Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure showyf;
    { Public declarations }
  end;

var
  xjyf: Txjyf;

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

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

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

procedure Txjyf.DBGridEh1CellClick(Column: TColumnEh);
begin
xjyf.showyf;
end;

procedure Txjyf.DBGridEh1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
xjyf.showyf;
end;

procedure Txjyf.DBGridEh1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
xjyf.showyf;
end;

procedure Txjyf.DBGridEh1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
xjyf.showyf;
end;

procedure Txjyf.SpeedButton6Click(Sender: TObject);
begin
yfgldata.xjyf.First;
xjyf.showyf;
end;

procedure Txjyf.SpeedButton7Click(Sender: TObject);
begin
yfgldata.xjyf.Prior;
xjyf.showyf;
end;

procedure Txjyf.SpeedButton8Click(Sender: TObject);
begin
yfgldata.xjyf.Next;
xjyf.showyf;
end;

procedure Txjyf.SpeedButton9Click(Sender: TObject);
begin
yfgldata.xjyf.Last;
xjyf.showyf;
end;

procedure Txjyf.FormShow(Sender: TObject);
begin
xjyf.showyf;
end;

procedure Txjyf.SpeedButton11Click(Sender: TObject);
var
  i:integer;
begin
if messagebox(xjyf.handle,'請(qǐng)確認(rèn)要?jiǎng)h除營房記錄嗎？','營房工作管理系統(tǒng)',33)=1 then
  begin
    yfgldata.xjyf.Delete;
    yfgldata.xjyf.First;
    for i:=1 to yfgldata.xjyf.RecordCount do
      begin
        yfgldata.xjyf.Edit;
        yfgldata.xjyf.FieldByName('序號(hào)').AsInteger:=i;
        yfgldata.xjyf.Post;
        yfgldata.xjyf.Next;
      end;
    yfgldata.xjyf.First;
    xjyf.showyf;
  end;
end;

procedure Txjyf.SpeedButton14Click(Sender: TObject);
begin
application.CreateForm(tbbdc,bbdc);
with bbdc do
begin
  listbox1.Items.Add('序號(hào)');  
  listbox1.Items.Add('單位代碼');
  listbox1.Items.Add('住用單位');
  listbox1.Items.Add('坐落號(hào)');
  listbox1.Items.Add('棟號(hào)');
  listbox1.Items.Add('房屋用途');
  listbox1.Items.Add('合計(jì)');
  listbox1.Items.Add('新建');
  listbox1.Items.Add('翻建');
  listbox1.Items.Add('下達(dá)任務(wù)單位');
  listbox1.Items.Add('下達(dá)任務(wù)年度');
  listbox1.Items.Add('下達(dá)任務(wù)文件號(hào)');
  listbox1.Items.Add('撥款');
  listbox1.Items.Add('集資');
  listbox1.Items.Add('換建');
  listbox1.Items.Add('自籌');
  listbox1.Items.Add('貸款');
  listbox1.Items.Add('部隊(duì)住用');
  listbox1.Items.Add('開發(fā)利用');
  listbox1.Items.Add('備注');
  vps_filter:=yfgldata.xjyf.Filter;
  vps_name:='yfgl_xjyf';
  edit1.Text:='新、翻建營房登記表';
  try
    ShowModal;
  finally
    free;
  end;
end;
end;

procedure Txjyf.SpeedButton5Click(Sender: TObject);
begin
application.CreateForm(tf_query,f_query);
f_query.tablename:='yfgl_xjyf';
f_query.fields.Clear;
f_query.fields.Add('單位代碼');
f_query.fields.Add('住用單位');
f_query.fields.Add('坐落號(hào)');
f_query.fields.Add('棟號(hào)');
f_query.fields.Add('房屋用途');
f_query.fields.Add('合計(jì)');
f_query.fields.Add('新建');
f_query.fields.Add('翻建');
f_query.fields.Add('下達(dá)任務(wù)單位');
f_query.fields.Add('下達(dá)任務(wù)年度');
f_query.fields.Add('下達(dá)任務(wù)文件號(hào)');
f_query.fields.Add('撥款');
f_query.fields.Add('集資');
f_query.fields.Add('換建');
f_query.fields.Add('自籌');
f_query.fields.Add('貸款');
f_query.fields.Add('部隊(duì)住用');
f_query.fields.Add('開發(fā)利用');
f_query.fields.Add('備注');
f_query.fieldsalias.Clear;
f_query.fieldsalias.Add('單位代碼');
f_query.fieldsalias.Add('住用單位');
f_query.fieldsalias.Add('坐落號(hào)');
f_query.fieldsalias.Add('棟號(hào)');
f_query.fieldsalias.Add('房屋用途');
f_query.fieldsalias.Add('合計(jì)');
f_query.fieldsalias.Add('新建');
f_query.fieldsalias.Add('翻建');
f_query.fieldsalias.Add('下達(dá)任務(wù)單位');
f_query.fieldsalias.Add('下達(dá)任務(wù)年度');
f_query.fieldsalias.Add('下達(dá)任務(wù)文件號(hào)');
f_query.fieldsalias.Add('撥款');
f_query.fieldsalias.Add('集資');
f_query.fieldsalias.Add('換建');
f_query.fieldsalias.Add('自籌');
f_query.fieldsalias.Add('貸款');
f_query.fieldsalias.Add('部隊(duì)住用');
f_query.fieldsalias.Add('開發(fā)利用');
f_query.fieldsalias.Add('備注');
try
  f_query.ShowModal;
  if f_query.conf then
    begin
    yfgldata.xjyf.Filter:=f_query.filtervalue;
    yfgldata.xjyf.Filtered:=true;
    xjyf.showyf;
    end
  else
    begin
    yfgldata.xjyf.Filtered:=false;
    xjyf.showyf;
    end;
finally
  f_query.Free;
end;
end;

procedure Txjyf.SpeedButton10Click(Sender: TObject);
begin
application.CreateForm(txjyftj,xjyftj);
xjyftj.Caption:='添加新營房';
xjyftj.xj:=true;
try
  xjyftj.ShowModal;
finally
  xjyftj.Free;
end;
end;

procedure Txjyf.SpeedButton12Click(Sender: TObject);
begin
application.CreateForm(txjyftj,xjyftj);
xjyftj.Caption:='添加營房數(shù)據(jù)';
xjyftj.xj:=false;
xjyftj.dxLookupTreeView1.Text:=yfgldata.xjyf.FieldByName('單位代碼').AsString;
xjyftj.dxLookupTreeView1.Enabled:=false;
xjyftj.Edit2.Text:=yfgldata.xjyf.FieldByName('住用單位').AsString;
xjyftj.ComboBox1.Items.Clear;
xjyftj.ComboBox1.Items.Add(yfgldata.xjyf.FieldByName('坐落號(hào)').AsString);
xjyftj.ComboBox1.ItemIndex:=0;
xjyftj.ComboBox1.Enabled:=false;
xjyftj.Edit1.Text:=yfgldata.xjyf.FieldByName('棟號(hào)').AsString;
xjyftj.Edit1.ReadOnly:=true;
xjyftj.Edit3.Text:=yfgldata.xjyf.FieldByName('房屋用途').AsString;
xjyftj.DBNumberEditEh1.Value:=yfgldata.xjyf.FieldByName('合計(jì)').AsInteger;
xjyftj.DBNumberEditEh2.Value:=yfgldata.xjyf.FieldByName('新建').AsInteger;
xjyftj.DBNumberEditEh4.Value:=yfgldata.xjyf.FieldByName('翻建').AsInteger;
xjyftj.Edit4.Text:=yfgldata.xjyf.FieldByName('下達(dá)任務(wù)單位').AsString;
xjyftj.DBNumberEditEh3.Value:=yfgldata.xjyf.FieldByName('下達(dá)任務(wù)年度').AsInteger;
xjyftj.Edit5.Text:=yfgldata.xjyf.FieldByName('下達(dá)任務(wù)文件號(hào)').AsString;
xjyftj.DBNumberEditEh5.Value:=yfgldata.xjyf.FieldByName('撥款').AsCurrency;
xjyftj.DBNumberEditEh6.Value:=yfgldata.xjyf.FieldByName('集資').AsCurrency;
xjyftj.DBNumberEditEh7.Value:=yfgldata.xjyf.FieldByName('換建').AsCurrency;
xjyftj.DBNumberEditEh8.Value:=yfgldata.xjyf.FieldByName('自籌').AsCurrency;
xjyftj.DBNumberEditEh9.Value:=yfgldata.xjyf.FieldByName('貸款').AsCurrency;
if yfgldata.xjyf.FieldByName('部隊(duì)住用').AsString='是' then
  xjyftj.CheckBox1.Checked:=true
else
  xjyftj.CheckBox1.Checked:=false;
if yfgldata.xjyf.FieldByName('開發(fā)利用').AsString='是' then
  xjyftj.CheckBox2.Checked:=true
else
  xjyftj.CheckBox2.Checked:=false;
xjyftj.Edit12.Text:=yfgldata.xjyf.FieldByName('備注').AsString;
try
  xjyftj.ShowModal;
finally
  xjyftj.Free;
end;
end;

procedure Txjyf.SpeedButton1Click(Sender: TObject);
begin
xjyf.PrintDBGridEh1.PageHeader.CenterText.Clear;
xjyf.PrintDBGridEh1.PageHeader.CenterText.Add('新建營房分棟登記表');
xjyf.PrintDBGridEh1.Preview;
end;

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

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

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

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

procedure Txjyf.CheckBox5Click(Sender: TObject);
begin
xjyf.DBGridEh1.Columns[6].Visible:=xjyf.CheckBox5.Checked;
xjyf.DBGridEh1.Columns[7].Visible:=xjyf.CheckBox5.Checked;
xjyf.DBGridEh1.Columns[8].Visible:=xjyf.CheckBox5.Checked;
end;

procedure Txjyf.CheckBox6Click(Sender: TObject);
begin
xjyf.DBGridEh1.Columns[9].Visible:=xjyf.CheckBox6.Checked;
xjyf.DBGridEh1.Columns[10].Visible:=xjyf.CheckBox6.Checked;
xjyf.DBGridEh1.Columns[11].Visible:=xjyf.CheckBox6.Checked;
end;

procedure Txjyf.CheckBox7Click(Sender: TObject);
begin
xjyf.DBGridEh1.Columns[12].Visible:=xjyf.CheckBox7.Checked;
xjyf.DBGridEh1.Columns[13].Visible:=xjyf.CheckBox7.Checked;
xjyf.DBGridEh1.Columns[14].Visible:=xjyf.CheckBox7.Checked;
xjyf.DBGridEh1.Columns[15].Visible:=xjyf.CheckBox7.Checked;
xjyf.DBGridEh1.Columns[16].Visible:=xjyf.CheckBox7.Checked;
end;

procedure Txjyf.CheckBox8Click(Sender: TObject);
begin
xjyf.DBGridEh1.Columns[17].Visible:=xjyf.CheckBox8.Checked;
xjyf.DBGridEh1.Columns[18].Visible:=xjyf.CheckBox8.Checked;
end;

procedure Txjyf.CheckBox9Click(Sender: TObject);
begin
xjyf.DBGridEh1.Columns[19].Visible:=xjyf.CheckBox9.Checked;
end;

end.
?? 文件大小 1892 K
?? 上傳用戶 sunny_02
?? 所屬分類其他行業(yè)
??? 相關(guān)標(biāo)簽

#編寫 #管理系統(tǒng)
?? 快捷鍵說明

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

?? xjyffrm.pas

?? 快捷鍵說明
