dwqkfrm.pas

来自「本人编写的有关军队营房工作的管理系统」· PAS 代码 · 共 625 行 · 第 1/2 页

application.CreateForm(tdwqktj,dwqktj);
dwqktj.Edit1.Text:=yfgldata.dwqk.fieldbyname('单位代码').AsString;
dwqktj.Edit2.Text:=yfgldata.dwqk.fieldbyname('单位名称').AsString;
dwqktj.Edit3.Text:=yfgldata.dwqk.fieldbyname('部队代号').AsString;
dwqktj.Edit4.Text:=yfgldata.dwqk.fieldbyname('单位地址').AsString;
dwqktj.Edit5.Text:=yfgldata.dwqk.fieldbyname('单位性质').AsString;
dwqktj.Edit6.Text:=yfgldata.dwqk.fieldbyname('隶属关系').AsString;
dwqktj.Edit7.Text:=yfgldata.dwqk.fieldbyname('供应关系').AsString;
dwqktj.Edit8.Text:=yfgldata.dwqk.fieldbyname('联勤关系').AsString;
dwqktj.Edit9.Text:=yfgldata.dwqk.fieldbyname('部队类别').AsString;
dwqktj.Edit10.Text:=yfgldata.dwqk.fieldbyname('单位级别').AsString;
dwqktj.Edit11.Text:=yfgldata.dwqk.fieldbyname('上级单位代码').AsString;
dwqktj.Edit12.Text:=yfgldata.dwqk.fieldbyname('地区代码').AsString;
dwqktj.Edit13.Text:=yfgldata.dwqk.fieldbyname('邮编').AsString;
dwqktj.DBNumberEditEh3.Value:=yfgldata.dwqk.fieldbyname('总人数').AsInteger;
dwqktj.DBNumberEditEh4.Value:=yfgldata.dwqk.fieldbyname('干部数').AsInteger;
dwqktj.DBNumberEditEh5.Value:=yfgldata.dwqk.fieldbyname('士官数').AsInteger;
dwqktj.DBNumberEditEh1.Value:=yfgldata.dwqk.fieldbyname('单位用房').AsInteger;
dwqktj.DBNumberEditEh2.Value:=yfgldata.dwqk.fieldbyname('公寓房').AsInteger;
dwqktj.Edit14.Text:=yfgldata.dwqk.fieldbyname('变更依据').AsString;
dwqktj.Edit11.ReadOnly:=false;
dwqktj.Caption:='修改单位情况';
dwqktj.tj:=false;
dwqktj.dm:=yfgldata.dwqk.fieldbyname('单位代码').AsString;
try
  dwqktj.ShowModal;
finally
  dwqktj.Free;
end;
end;

procedure Tdwqk.SpeedButton10Click(Sender: TObject);
begin
application.CreateForm(tdwqktj,dwqktj);
if yfgldata.dwqk.RecordCount>0 then
  dwqktj.Edit11.Text:=yfgldata.dwqk.fieldbyname('上级单位代码').AsString
else
  dwqktj.Edit11.Text:='';
dwqktj.Edit11.ReadOnly:=true;
dwqktj.Caption:='添加同级单位';
dwqktj.tj:=true;
try
  dwqktj.ShowModal;
finally
  dwqktj.Free;
end;
end;

procedure Tdwqk.SpeedButton13Click(Sender: TObject);
begin
application.CreateForm(tdwqktj,dwqktj);
if yfgldata.dwqk.RecordCount>0 then
  dwqktj.Edit11.Text:=yfgldata.dwqk.fieldbyname('单位代码').AsString
else
  dwqktj.Edit11.Text:='';
dwqktj.Edit11.ReadOnly:=true;
dwqktj.Caption:='添加下级单位';
dwqktj.tj:=true;
try
  dwqktj.ShowModal;
finally
  dwqktj.Free;
end;
end;

procedure Tdwqk.CheckBox14Click(Sender: TObject);
begin
dwqk.DBGridEh1.Columns[3].Visible:=dwqk.CheckBox14.Checked;
end;

procedure Tdwqk.CheckBox15Click(Sender: TObject);
begin
dwqk.DBGridEh1.Columns[9].Visible:=dwqk.CheckBox15.Checked;
end;

procedure Tdwqk.CheckBox18Click(Sender: TObject);
begin
dwqk.DBGridEh1.Columns[8].Visible:=dwqk.CheckBox18.Checked;
end;

procedure Tdwqk.CheckBox16Click(Sender: TObject);
begin
dwqk.DBGridEh1.Columns[10].Visible:=dwqk.CheckBox16.Checked;
dwqk.DBGridEh1.Columns[11].Visible:=dwqk.CheckBox16.Checked;
end;

procedure Tdwqk.CheckBox17Click(Sender: TObject);
begin
dwqk.DBGridEh1.Columns[12].Visible:=dwqk.CheckBox17.Checked;
end;

procedure Tdwqk.SpeedButton11Click(Sender: TObject);
var
  dwdm:string;
  num:integer;
begin
dwdm:=yfgldata.dwqk.fieldbyname('单位代码').AsString;
if messagebox(dwqk.handle,'单位一经删除，与之相关的营产信息也将被删除，请确认要删除本单位吗？','营房工作管理系统',33)=1 then
  begin
    yfgldata.guolu.First;
    for num:=1 to yfgldata.guolu.RecordCount do
      begin
        if yfgldata.guolu.FieldByName('单位代码').AsString=dwdm then
          yfgldata.guolu.Delete
        else
          yfgldata.guolu.Next;
      end;
    yfgldata.guolu.First;
    yfgldata.gx.First;
    for num:=1 to yfgldata.gx.RecordCount do
      begin
        if yfgldata.gx.FieldByName('单位代码').AsString=dwdm then
          yfgldata.gx.Delete
        else
          yfgldata.gx.Next;
      end;
    yfgldata.gx.First;
    yfgldata.xjyf.First;
    for num:=1 to yfgldata.xjyf.RecordCount do
      begin
        if yfgldata.xjyf.FieldByName('单位代码').AsString=dwdm then
          yfgldata.xjyf.Delete
        else
          yfgldata.xjyf.Next;
      end;
    yfgldata.xjyf.First;
    yfgldata.yfda.First;
    for num:=1 to yfgldata.yfda.RecordCount do
      begin
        if yfgldata.yfda.FieldByName('单位代码').AsString=dwdm then
          yfgldata.yfda.Delete
        else
          yfgldata.yfda.Next;
      end;
    yfgldata.yfda.First;
    yfgldata.yffd.First;
    for num:=1 to yfgldata.yffd.RecordCount do
      begin
        if yfgldata.yffd.FieldByName('单位代码').AsString=dwdm then
          yfgldata.yffd.Delete
        else
          yfgldata.yffd.Next;
      end;
    yfgldata.yffd.First;
    yfgldata.yfsb.First;
    for num:=1 to yfgldata.yfsb.RecordCount do
      begin
        if yfgldata.yfsb.FieldByName('单位代码').AsString=dwdm then
          yfgldata.yfsb.Delete
        else
          yfgldata.yfsb.Next;
      end;
    yfgldata.yfsb.First;
    yfgldata.yfwz.First;
    for num:=1 to yfgldata.yfwz.RecordCount do
      begin
        if yfgldata.yfwz.FieldByName('单位代码').AsString=dwdm then
          yfgldata.yfwz.Delete
        else
          yfgldata.yfwz.Next;
      end;
    yfgldata.yfwz.First;
    yfgldata.yfzl.First;
    for num:=1 to yfgldata.yfzl.RecordCount do
      begin
        if yfgldata.yfzl.FieldByName('单位代码').AsString=dwdm then
          yfgldata.yfzl.Delete
        else
          yfgldata.yfzl.Next;
      end;
    yfgldata.yfzl.First;
    yfgldata.dwqk.Delete;
    dwqk.showbutton;
  end;
end;

procedure Tdwqk.dxDBTreeView1Click(Sender: TObject);
begin
dwqk.showbutton;
end;

procedure Tdwqk.DBGridEh1CellClick(Column: TColumnEh);
begin
dwqk.showbutton;
end;

procedure Tdwqk.DBGridEh1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
dwqk.showbutton;
end;

procedure Tdwqk.DBGridEh1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
dwqk.showbutton;
end;

procedure Tdwqk.DBGridEh1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
dwqk.showbutton;
end;

procedure Tdwqk.SpeedButton14Click(Sender: TObject);
begin
application.CreateForm(txuanze,xuanze);
xuanze.Caption:='导出单位选择';
xuanze.dy:=false;
try
  xuanze.ShowModal;
finally
  xuanze.Free;
end;
end;

procedure Tdwqk.SpeedButton1Click(Sender: TObject);
begin
application.CreateForm(txuanze,xuanze);
xuanze.Caption:='打印单位选择';
xuanze.dy:=true;
try
  xuanze.ShowModal;
finally
  xuanze.Free;
end;
end;

procedure Tdwqk.SpeedButton5Click(Sender: TObject);
begin
application.CreateForm(tf_query,f_query);
f_query.tablename:='yfgl_dwqk'; 
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.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('总人数');
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.dwqk.Filter:=f_query.filtervalue;
    yfgldata.dwqk.Filtered:=true;
    end
  else
    yfgldata.dwqk.Filtered:=false;
finally
  f_query.Free;
end;
end;

end.