⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 realtyc221.pas

📁 物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、各分公司、各物业管理处连接到一起
💻 PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
                query.Parameters.ParamByName('s1').Value:=edit1.Text;
                query.Parameters.ParamByName('s2').Value:='06';
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;

            if checkbox7.Checked=true then
            begin
                s:='insert into 收费时间明细(编号,月份) values(:s1,:s2)';
                query.sql.clear;
                query.SQL.Add(s);
                query.Parameters.ParamByName('s1').Value:=edit1.Text;
                query.Parameters.ParamByName('s2').Value:='07';
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;

            if checkbox8.Checked=true then
            begin
                s:='insert into 收费时间明细(编号,月份) values(:s1,:s2)';
                query.sql.clear;
                query.SQL.Add(s);
                query.Parameters.ParamByName('s1').Value:=edit1.Text;
                query.Parameters.ParamByName('s2').Value:='08';
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;

            if checkbox9.Checked=true then
            begin
                s:='insert into 收费时间明细(编号,月份) values(:s1,:s2)';
                query.sql.clear;
                query.SQL.Add(s);
                query.Parameters.ParamByName('s1').Value:=edit1.Text;
                query.Parameters.ParamByName('s2').Value:='09';
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;

            if checkbox10.Checked=true then
            begin
                s:='insert into 收费时间明细(编号,月份) values(:s1,:s2)';
                query.sql.clear;
                query.SQL.Add(s);
                query.Parameters.ParamByName('s1').Value:=edit1.Text;
                query.Parameters.ParamByName('s2').Value:='10';
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;

            if checkbox11.Checked=true then
            begin
                s:='insert into 收费时间明细(编号,月份) values(:s1,:s2)';
                query.sql.clear;
                query.SQL.Add(s);
                query.Parameters.ParamByName('s1').Value:=edit1.Text;
                query.Parameters.ParamByName('s2').Value:='11';
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;

            if checkbox12.Checked=true then
            begin
                s:='insert into 收费时间明细(编号,月份) values(:s1,:s2)';
                query.sql.clear;
                query.SQL.Add(s);
                query.Parameters.ParamByName('s1').Value:=edit1.Text;
                query.Parameters.ParamByName('s2').Value:='12';
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;
        end;



        query.Close;
        query.Free;

        close;
    end;


    if f_RealtyC22.bMod=false then
    begin
        query.SQL.clear;
        query.SQL.Add('select * from 收费时间 where 编号='''+edit1.Text+'''');
        query.Open;
        if query.RecordCount>0 then
        begin
            showmessage('编号重复');
            query.Close;
            query.Free;
            exit;
        end;

        s:='insert into 收费时间 (编号,名称,说明,收费日期)';
        s:=s+'values(:s1,:s2,:s3,:s4)';

        query.sql.clear;
        query.SQL.Add(s);

        query.Parameters.ParamByName('s1').Value:=edit1.Text;
        query.Parameters.ParamByName('s2').Value:=edit2.Text;
        query.Parameters.ParamByName('s3').Value:=edit4.text;
        query.Parameters.ParamByName('s4').Value:=combobox2.Text;


        DataModuleADO.ADOConnection1.BeginTrans;
        query.ExecSQL;
        DataModuleADO.ADOConnection1.CommitTrans;


        {if Edit2.Text='指定月' then
        begin
            query.SQL.Clear;
            query.SQL.Add('select * from 收费时间 where 编号='''+edit1.Text+'''');
            query.Open;
            if query.RecordCount>0 then
            begin
                 with f_RealtyC22.listview1.Items.Add do
                 begin
                      Caption:=query.fieldbyname('编号').value;
                      SubItems.Add(query.fieldbyname('名称').Value);
                      SubItems.Add(Query.FieldByName('说明').Value);
                 end;
            end;
        end; }

        if Edit2.Text='指定月' then
        begin
            if checkbox1.Checked=true then
            begin
                s:='insert into 收费时间明细(编号,月份) values(:s1,:s2)';
                query.sql.clear;
                query.SQL.Add(s);
                query.Parameters.ParamByName('s1').Value:=edit1.Text;
                query.Parameters.ParamByName('s2').Value:='01';
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;

            if checkbox2.Checked=true then
            begin
                s:='insert into 收费时间明细(编号,月份) values(:s1,:s2)';
                query.sql.clear;
                query.SQL.Add(s);
                query.Parameters.ParamByName('s1').Value:=edit1.Text;
                query.Parameters.ParamByName('s2').Value:='02';
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;

            if checkbox3.Checked=true then
            begin
                s:='insert into 收费时间明细(编号,月份) values(:s1,:s2)';
                query.sql.clear;
                query.SQL.Add(s);
                query.Parameters.ParamByName('s1').Value:=edit1.Text;
                query.Parameters.ParamByName('s2').Value:='03';
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;

            if checkbox4.Checked=true then
            begin
                s:='insert into 收费时间明细(编号,月份) values(:s1,:s2)';
                query.sql.clear;
                query.SQL.Add(s);
                query.Parameters.ParamByName('s1').Value:=edit1.Text;
                query.Parameters.ParamByName('s2').Value:='04';
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;

            if checkbox5.Checked=true then
            begin
                s:='insert into 收费时间明细(编号,月份) values(:s1,:s2)';
                query.sql.clear;
                query.SQL.Add(s);
                query.Parameters.ParamByName('s1').Value:=edit1.Text;
                query.Parameters.ParamByName('s2').Value:='05';
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;

            if checkbox6.Checked=true then
            begin
                s:='insert into 收费时间明细(编号,月份) values(:s1,:s2)';
                query.sql.clear;
                query.SQL.Add(s);
                query.Parameters.ParamByName('s1').Value:=edit1.Text;
                query.Parameters.ParamByName('s2').Value:='06';
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;

            if checkbox7.Checked=true then
            begin
                s:='insert into 收费时间明细(编号,月份) values(:s1,:s2)';
                query.sql.clear;
                query.SQL.Add(s);
                query.Parameters.ParamByName('s1').Value:=edit1.Text;
                query.Parameters.ParamByName('s2').Value:='07';
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;

            if checkbox8.Checked=true then
            begin
                s:='insert into 收费时间明细(编号,月份) values(:s1,:s2)';
                query.sql.clear;
                query.SQL.Add(s);
                query.Parameters.ParamByName('s1').Value:=edit1.Text;
                query.Parameters.ParamByName('s2').Value:='08';
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;

            if checkbox9.Checked=true then
            begin
                s:='insert into 收费时间明细(编号,月份) values(:s1,:s2)';
                query.sql.clear;
                query.SQL.Add(s);
                query.Parameters.ParamByName('s1').Value:=edit1.Text;
                query.Parameters.ParamByName('s2').Value:='09';
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;

            if checkbox10.Checked=true then
            begin
                s:='insert into 收费时间明细(编号,月份) values(:s1,:s2)';
                query.sql.clear;
                query.SQL.Add(s);
                query.Parameters.ParamByName('s1').Value:=edit1.Text;
                query.Parameters.ParamByName('s2').Value:='10';
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;

            if checkbox11.Checked=true then
            begin
                s:='insert into 收费时间明细(编号,月份) values(:s1,:s2)';
                query.sql.clear;
                query.SQL.Add(s);
                query.Parameters.ParamByName('s1').Value:=edit1.Text;
                query.Parameters.ParamByName('s2').Value:='11';
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;

            if checkbox12.Checked=true then
            begin
                s:='insert into 收费时间明细(编号,月份) values(:s1,:s2)';
                query.sql.clear;
                query.SQL.Add(s);
                query.Parameters.ParamByName('s1').Value:=edit1.Text;
                query.Parameters.ParamByName('s2').Value:='12';
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;
        end;

        query.SQL.Clear;
        query.SQL.Add('select * from 收费时间 where 编号='''+edit1.Text+'''');
        query.Open;
        if query.RecordCount>0 then
        begin
             with f_RealtyC22.listview1.items.add do
             begin
                  Caption:=query.fieldbyname('编号').value;
                  SubItems.Add(query.fieldbyname('名称').Value);
                  SubItems.Add(Query.FieldByName('说明').Value);
             end;
        end;

        query.Close;
        query.Free;
        if f_RealtyC22.ListView1.Items.Count>0 then f_RealtyC22.listview1.Items.Item[0].Selected:=true;

        edit1.text:='';
        edit2.text:='';
        combobox2.ItemIndex:=combobox2.Items.IndexOf('');
        edit4.Text:='';
        Edit1.setfocus;


    end;

end;

procedure Tf_RealtyC221.Button5Click(Sender: TObject);
begin
    close;
end;


procedure Tf_RealtyC221.Edit2Change(Sender: TObject);
begin
    if Edit2.Text='指定月' then
    begin
        GroupBox2.Enabled:=true;
        CheckBox1.Enabled:=true;
        CheckBox2.Enabled:=true;
        CheckBox3.Enabled:=true;
        CheckBox4.Enabled:=true;
        CheckBox5.Enabled:=true;
        CheckBox6.Enabled:=true;
        CheckBox7.Enabled:=true;
        CheckBox8.Enabled:=true;
        CheckBox9.Enabled:=true;
        CheckBox10.Enabled:=true;
        CheckBox11.Enabled:=true;
        CheckBox12.Enabled:=true;
    end
    else
    begin
        GroupBox2.Enabled:=false;
        CheckBox1.Enabled:=false;
        CheckBox2.Enabled:=false;
        CheckBox3.Enabled:=false;
        CheckBox4.Enabled:=false;
        CheckBox5.Enabled:=false;
        CheckBox6.Enabled:=false;
        CheckBox7.Enabled:=false;
        CheckBox8.Enabled:=false;
        CheckBox9.Enabled:=false;
        CheckBox10.Enabled:=false;
        CheckBox11.Enabled:=false;
        CheckBox12.Enabled:=false;
    end;
end;

end.
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -