亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? yfzlfrm.pas

?? 本人編寫的有關軍隊營房工作的管理系統
?? PAS
?? 第 1 頁 / 共 2 頁
字號: 
unit yfzlfrm;

interface

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

type
  Tyfzl = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton14: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    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;
    CheckBox19: TCheckBox;
    CheckBox20: TCheckBox;
    PrintDBGridEh1: TPrintDBGridEh;
    procedure SpeedButton2Click(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);
    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 CheckBox19Click(Sender: TObject);
    procedure CheckBox20Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton11Click(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);
  private
    { Private declarations }
  public
    procedure showbtn;
    { Public declarations }
  end;

var
  yfzl: Tyfzl;

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

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

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

procedure Tyfzl.CheckBox2Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[3].Visible:=yfzl.CheckBox2.Checked;
end;

procedure Tyfzl.CheckBox3Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[4].Visible:=yfzl.CheckBox3.Checked;
end;

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

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

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

procedure Tyfzl.CheckBox7Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[8].Visible:=yfzl.CheckBox7.Checked;
end;

procedure Tyfzl.CheckBox8Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[9].Visible:=yfzl.CheckBox8.Checked;
end;

procedure Tyfzl.CheckBox9Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[10].Visible:=yfzl.CheckBox9.Checked;
end;

procedure Tyfzl.CheckBox10Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[11].Visible:=yfzl.CheckBox10.Checked;
end;

procedure Tyfzl.CheckBox11Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[12].Visible:=yfzl.CheckBox11.Checked;
end;

procedure Tyfzl.CheckBox12Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[13].Visible:=yfzl.CheckBox12.Checked;
end;

procedure Tyfzl.CheckBox13Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[14].Visible:=yfzl.CheckBox13.Checked;
yfzl.DBGridEh1.Columns[15].Visible:=yfzl.CheckBox13.Checked;
yfzl.DBGridEh1.Columns[16].Visible:=yfzl.CheckBox13.Checked;
yfzl.DBGridEh1.Columns[17].Visible:=yfzl.CheckBox13.Checked;
end;

procedure Tyfzl.CheckBox14Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[18].Visible:=yfzl.CheckBox14.Checked;
yfzl.DBGridEh1.Columns[19].Visible:=yfzl.CheckBox14.Checked;
yfzl.DBGridEh1.Columns[20].Visible:=yfzl.CheckBox14.Checked;
end;

procedure Tyfzl.CheckBox15Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[21].Visible:=yfzl.CheckBox15.Checked;
yfzl.DBGridEh1.Columns[22].Visible:=yfzl.CheckBox15.Checked;
yfzl.DBGridEh1.Columns[23].Visible:=yfzl.CheckBox15.Checked;
end;

procedure Tyfzl.CheckBox16Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[24].Visible:=yfzl.CheckBox16.Checked;
end;

procedure Tyfzl.CheckBox17Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[25].Visible:=yfzl.CheckBox17.Checked;
end;

procedure Tyfzl.CheckBox18Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[26].Visible:=yfzl.CheckBox18.Checked;
end;

procedure Tyfzl.CheckBox19Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[27].Visible:=yfzl.CheckBox19.Checked;
end;

procedure Tyfzl.CheckBox20Click(Sender: TObject);
begin
yfzl.DBGridEh1.Columns[28].Visible:=yfzl.CheckBox20.Checked;
end;

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

procedure Tyfzl.FormShow(Sender: TObject);
begin
yfzl.showbtn;
end;

procedure Tyfzl.SpeedButton10Click(Sender: TObject);
begin
application.CreateForm(tyfzlbj,yfzlbj);
yfzlbj.Caption:='添加新坐落';
yfzlbj.zlbj:=false;
try
  yfzlbj.ShowModal;
finally
  yfzlbj.Free;
end;
end;

procedure Tyfzl.SpeedButton5Click(Sender: TObject);
begin
application.CreateForm(tf_query,f_query);
f_query.tablename:='yfgl_yfzl';
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.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('變更原因');
try
  f_query.ShowModal;
  if f_query.conf then
    begin
    yfgldata.yfzl.Filter:=f_query.filtervalue;
    yfgldata.yfzl.Filtered:=true;
    yfzl.showbtn;
    end
  else
    begin
    yfgldata.yfzl.Filtered:=false;
    yfzl.showbtn;
    end;
finally
  f_query.Free;
end;
end;

procedure Tyfzl.SpeedButton1Click(Sender: TObject);
begin
yfzl.PrintDBGridEh1.PageHeader.CenterText.Clear;
yfzl.PrintDBGridEh1.PageHeader.CenterText.Add('坐落概況登記（變更）表');
yfzl.PrintDBGridEh1.Preview;
end;

procedure Tyfzl.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('城鄉區位');

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
久久99精品国产麻豆不卡| 亚洲视频在线观看三级| 日本视频一区二区三区| 欧美精品v日韩精品v韩国精品v| 亚洲视频在线观看三级| 欧美影院一区二区三区| 日韩综合小视频| 欧美精品一区二区三区久久久| 国产精品三级视频| 91免费在线播放| 91福利视频网站| 青青草97国产精品免费观看| 国产精品区一区二区三| 国产精品久久久久久久久晋中| 97se亚洲国产综合在线| 亚洲bdsm女犯bdsm网站| 欧美刺激脚交jootjob| 国产91色综合久久免费分享| 亚洲黄色尤物视频| 欧美r级电影在线观看| 成人高清视频免费观看| 五月天激情综合网| 久久精品一区蜜桃臀影院| 99久久久国产精品免费蜜臀| 性久久久久久久久久久久| 久久影院午夜片一区| 91啦中文在线观看| 理论电影国产精品| 亚洲女同女同女同女同女同69| 欧美一级日韩免费不卡| 成人午夜私人影院| 青青草成人在线观看| 国产精品二三区| 日韩午夜电影av| 色噜噜狠狠色综合中国| 久草中文综合在线| 亚洲亚洲人成综合网络| 久久尤物电影视频在线观看| 欧美性色黄大片| 成人美女在线视频| 视频一区欧美精品| 中文字幕一区二区三区视频| 日韩一区二区视频| 在线精品视频一区二区三四| 国产精品一区二区无线| 天天影视网天天综合色在线播放| 欧美激情资源网| 精品少妇一区二区三区| 欧美午夜精品久久久久久超碰| 国产精品一区二区在线观看不卡 | youjizz国产精品| 日本欧美久久久久免费播放网| 综合欧美亚洲日本| 久久综合999| 日韩欧美一二三| 欧美日韩一级片网站| 成人网页在线观看| 麻豆精品视频在线观看| 亚洲自拍偷拍av| 亚洲老妇xxxxxx| 国产精品久久久久久久久免费丝袜| 久久在线观看免费| 精品国产一区二区三区av性色 | 91在线看国产| 国产伦精品一区二区三区免费迷 | 91精品国产综合久久香蕉麻豆| 97久久久精品综合88久久| 国产精品一区二区久久精品爱涩 | 香蕉成人啪国产精品视频综合网| 亚洲日本一区二区三区| 国产精品入口麻豆九色| 欧美激情资源网| 国产欧美精品一区二区色综合 | 97久久精品人人澡人人爽| 国产不卡在线视频| 国产久卡久卡久卡久卡视频精品| 精品制服美女丁香| 国内外成人在线| 韩国女主播成人在线| 久久精品国产澳门| 精品无人区卡一卡二卡三乱码免费卡| 天天影视色香欲综合网老头| 五月婷婷色综合| 五月综合激情网| 美女精品一区二区| 久久机这里只有精品| 极品少妇xxxx偷拍精品少妇| 国产精品99久久久久久似苏梦涵| 国产又粗又猛又爽又黄91精品| 国产在线观看一区二区 | 成人sese在线| 成人黄页毛片网站| 91在线国产福利| 精品视频一区二区三区免费| 欧美久久婷婷综合色| 制服丝袜日韩国产| 精品少妇一区二区三区免费观看 | 1000部国产精品成人观看| 亚洲免费av观看| 亚洲国产精品麻豆| 蜜臀av性久久久久蜜臀aⅴ流畅| 美脚の诱脚舐め脚责91| 国产一区二区网址| 91麻豆国产福利在线观看| 欧美另类变人与禽xxxxx| 欧美一级欧美一级在线播放| 久久综合九色综合欧美98| 国产欧美中文在线| 亚洲一区二区av在线| 国内精品久久久久影院色| 97精品国产露脸对白| 欧美日韩一级视频| 国产欧美一区二区在线| 一区二区三区免费看视频| 日韩成人精品在线观看| 成人性生交大片免费看中文| 欧美日韩中文一区| 久久一夜天堂av一区二区三区| 亚洲免费观看视频| 国内外成人在线视频| 色婷婷av一区二区三区之一色屋| 欧美xfplay| 一区二区三区自拍| 狠狠狠色丁香婷婷综合激情| 日本乱人伦aⅴ精品| 精品av综合导航| 尤物av一区二区| 国产精品一区二区三区四区| 欧美日本在线观看| 国产精品青草久久| 美国av一区二区| 色诱视频网站一区| 国产网站一区二区三区| 日韩av在线免费观看不卡| 99精品久久免费看蜜臀剧情介绍| 日韩你懂的在线播放| 亚洲色图清纯唯美| 国产美女精品人人做人人爽| 欧美裸体bbwbbwbbw| 亚洲黄色尤物视频| 成人免费电影视频| 欧美一级电影网站| 亚洲一区二区欧美| 99国产一区二区三精品乱码| 久久蜜桃av一区二区天堂 | 婷婷成人激情在线网| 色综合网色综合| 中文字幕一区二区三区视频| 国产美女av一区二区三区| 日韩精品一区二区三区蜜臀| 亚洲chinese男男1069| 色婷婷精品久久二区二区蜜臂av | 91老师国产黑色丝袜在线| 中文字幕第一区综合| 国产一区二区不卡| 久久综合资源网| 免费观看成人鲁鲁鲁鲁鲁视频| 欧美午夜寂寞影院| 一区二区三区产品免费精品久久75| 国产91丝袜在线观看| 国产日产精品1区| 精品一区二区三区免费视频| 91精品国产黑色紧身裤美女| 天天综合网天天综合色| 91精品福利在线| 亚洲日本中文字幕区| 99精品欧美一区二区三区小说| 国产精品久久三区| 高清不卡一区二区| 欧美国产视频在线| av在线不卡观看免费观看| 国产精品欧美久久久久无广告 | 亚洲午夜一区二区三区| 在线一区二区三区四区五区| 一区二区三区四区国产精品| 欧美性色aⅴ视频一区日韩精品| 亚洲曰韩产成在线| 欧美人狂配大交3d怪物一区| 丝袜诱惑制服诱惑色一区在线观看 | 欧美日韩亚州综合| 五月天精品一区二区三区| 4438成人网| 狠狠色丁香九九婷婷综合五月| 久久免费电影网| 99久久99精品久久久久久| 一区二区三区视频在线看| 欧美美女一区二区在线观看| 蜜臀精品久久久久久蜜臀| 2023国产精品| 99久久精品国产网站| 亚洲国产va精品久久久不卡综合| 91精品国产综合久久精品麻豆 | 国产成人午夜精品影院观看视频 | 国产一区二区三区免费播放| 亚洲国产成人自拍| 在线免费观看一区| 亚洲精品免费看| 亚洲伦理在线精品| 中文字幕在线免费不卡| 久久99在线观看|