company.pas

delphi的一个开发实例

    Edit_WWW.Text:=frm_data.ClientDataSet_TMP.FieldByName('Company_WWW').AsString;
    Edit_Email.Text:=frm_data.ClientDataSet_TMP.FieldByName('Company_Email').AsString;
    Edit1.Text:=frm_data.ClientDataSet_TMP.FieldByName('Sign_Flag').AsString;
    Edit2.Text:=frm_data.ClientDataSet_TMP.FieldByName('Use_Flag').AsString;
end;

procedure Tfrm_Company.CheckBox1Click(Sender: TObject);
begin

    if checkbox1.Checked=True then
    begin
        Edit1.Text:='是';
    end;
    if checkbox1.Checked=False then
    begin
        Edit1.Text:='否';
    end;
end;

procedure Tfrm_Company.CheckBox2Click(Sender: TObject);
begin
    if checkbox2.Checked=false then
    begin
       Edit2.Text:='否';
    end;
    if checkbox2.Checked=True then
    begin
        Edit2.Text:='是';
    end;
end;

procedure Tfrm_Company.Edit1Change(Sender: TObject);
begin
    if Trim(Edit1.Text)='是' then
    begin
        CheckBox1.Checked:=True;
    end;
    if Trim(Edit1.Text)='否' then
    begin
        CheckBox1.Checked:=False;
    end;
end;

procedure Tfrm_Company.Edit2Change(Sender: TObject);
begin
    if Trim(Edit2.Text)='是' then
    begin
        CheckBox2.Checked:=True;
    end;
    if Trim(Edit2.Text)='否' then
    begin
        CheckBox2.Checked:=False;
    end;
end;

procedure Tfrm_Company.Cmd_EditClick(Sender: TObject);
var
    SqlText:String; //插入语句的定义
    SqlFiled:String;//数据表字段
begin
    SqlText:='';//清空
    SqlFiled:='';
    if Trim(Edit_NO.Text)='' then
    begin
        Application.MessageBox('错误操作！为了便于管理【公司代码】不能为空！请确认！',Pchar(Application.Title),MB_ICONWARNing);
        Edit_NO.SetFocus;
        Exit;
    end;
    if Trim(Edit_Name.Text)='' then
    begin
        Application.MessageBox('错误操作！为了便于管理【公司代码】不能为空！请确认！',Pchar(Application.Title),MB_ICONWARNing);
        Edit_Name.SetFocus;
        Exit;
    end;
    if CheckBox1.Checked=True then
    begin
        ZD:='是';
    end;
    if CheckBox1.Checked=False then
    begin
        ZD:='否';
    end;
    if Application.MessageBox('确定需要修改该【公司信息】吗？请确认！',Pchar(Application.Title),MB_okcancel)=Idok then
    begin
        with frm_data.ClientDataSet_Company do
        begin
            Close;
            CommandText:='';
            CommandText:='Update [JB_Company]  set Company_Name='''+Trim(Edit_Name.Text)+''',Company_address='''+Trim(Edit_address.Text)+''',Company_ZIP='''+Trim(Edit_ZIP.Text)+''',Company_TEL='''+Trim(Edit_TEL.Text)+''',Company_TAX='''+Trim(Edit_Fax.Text)+''',Company_WWW='''+Trim(Edit_WWW.Text)+''',Company_Email='''+Trim(Edit_Email.Text)+''',Sign_Flag='''+Trim(Edit1.Text)+''',Use_Flag='''+Trim(Edit2.Text)+''' where Company_NO='''+Trim(Edit_No.Text)+'''';
            try
                Execute;
                Application.MessageBox('恭喜你！【公司信息】保存保存成功！'+#13#10313+'请确认！',Pchar(Application.Title),MB_ICONWARNing);
            except;
                Application.MessageBox('系统错误！系统在保存【公司信息】数据表时出错！'+#13#10313+'请检查远程服务器连接是否正常？'+#13#10313+'或你输入的数据格式是否正确？请确认！',Pchar(Application.Title),MB_ICONWARNing);
                Exit;
            end;
        end;
    end;
end;


procedure Tfrm_Company.Cmd_DeleteClick(Sender: TObject);
var
    SqlText:String; //插入语句的定义
    SqlFiled:String;//数据表字段
begin
    SqlText:='';//清空
    SqlFiled:='';
    if Trim(Edit_NO.Text)='' then
    begin
        Application.MessageBox('错误操作！为了便于管理【公司代码】不能为空！请确认！',Pchar(Application.Title),MB_ICONWARNing);
        Edit_NO.SetFocus;
        Exit;
    end;
    if Trim(Edit_Name.Text)='' then
    begin
        Application.MessageBox('错误操作！为了便于管理【公司代码】不能为空！请确认！',Pchar(Application.Title),MB_ICONWARNing);
        Edit_Name.SetFocus;
        Exit;
    end;
    if CheckBox1.Checked=True then
    begin
        ZD:='是';
    end;
    if CheckBox1.Checked=False then
    begin
        ZD:='否';
    end;
    if Application.MessageBox('确定需要删除该【公司信息】吗？请确认！',Pchar(Application.Title),MB_okcancel)=Idok then
    begin
        with frm_data.ClientDataSet_Company do
        begin
            Close;
            CommandText:='';
            CommandText:='delete [JB_Company] where Company_NO='''+Trim(Edit_No.Text)+'''';
            try
                Execute;
                Application.MessageBox('恭喜你！【公司信息】删除成功！'+#13#10313+'请确认！',Pchar(Application.Title),MB_ICONWARNing);
            except;
                Application.MessageBox('系统错误！系统在删除【公司信息】数据表时出错！'+#13#10313+'请检查远程服务器连接是否正常？'+#13#10313+'或你输入的数据格式是否正确？请确认！',Pchar(Application.Title),MB_ICONWARNing);
                Exit;
            end;
        end;
    end;
end;


procedure Tfrm_Company.Cmd_PartClick(Sender: TObject);
begin
    if (Trim(Edit_NO.Text)<>'') and (Trim(Edit_Name.Text)<>'') then
    begin
        Str_Part_No:='';
        Str_part_Name:='';
        Str_Part_Code:='Company_Str';
        Str_Part_No:=Trim(Edit_No.Text);
        Str_Part_Name:=Trim(Edit_Name.Text);
        frm_Part_set:=Tfrm_Part_set.Create(self);
        frm_Part_set.ShowModal;
        frm_Part_set.Free;
    end;
end;

procedure Tfrm_Company.FormShow(Sender: TObject);
begin
    with frm_data.ClientDataSet_TMP do
    begin
        frm_data.ClientDataSet_TMP.Active:=True;
        DBGrid1.DataSource:=frm_data.DataSource_TMP;
        if frm_data.ClientDataSet_TMP.RecordCount>0 then
        begin
            frm_data.DataSource_TMP.Enabled:=True;
            DBGrid1.Columns[0].Title.caption:='公司名称';
            DBGrid1.Columns[1].Title.caption:='公司代码';
            DBGrid1.Columns[2].Title.caption:='公司地址';
            DBGrid1.Columns[3].Title.caption:='邮政编码';
            DBGrid1.Columns[4].Title.caption:='联系电话';
            DBGrid1.Columns[5].Title.caption:='传真号码';
            DBGrid1.Columns[6].Title.caption:='公司网址';
            DBGrid1.Columns[7].Title.caption:='电子邮箱';
            DBGrid1.Columns[8].Title.caption:='是否为总店';
            DBGrid1.Columns[9].Title.caption:='停用标志';
        end
        else
        begin
            frm_data.DataSource_TMP.Enabled:=False;
        end;
    end;

end;

procedure Tfrm_Company.Edit_NOChange(Sender: TObject);
begin
    if Trim(Edit_NO.Text)<>'' then
    begin
        Cmd_Part.Enabled:=True;
    end;
    if Trim(Edit_NO.Text)='' then
    begin
        Cmd_Part.Enabled:=False;
    end;
end;

end.