thing_base.pas

delphi的一个开发实例

                DBGrid2.Columns[5].Title.caption:='详细地址';
                DBGrid2.Columns[6].Title.caption:='联系电话';
                DBGrid2.Columns[7].Title.caption:='传真号码';
                DBGrid2.Columns[8].Title.caption:='仓库大小';
                DBGrid2.Columns[9].Title.caption:='仓库管理员';
                DBGrid2.Columns[10].Title.caption:='备注说明';
            end;
        end;
    end;
end;

procedure Tfrm_Thing_Base.Panel3Click(Sender: TObject);
begin
    Close;
end;

procedure Tfrm_Thing_Base.P_TypeDblClick(Sender: TObject);
begin
    frm_Member:=Tfrm_Member.Create(self);
    frm_Member.TabSheet1.TabVisible:=True;
    frm_Member.TabSheet2.TabVisible:=False;
    frm_Member.ShowModal;
    frm_Member.Free;
end;

procedure Tfrm_Thing_Base.P_SetingDblClick(Sender: TObject);
begin
    frm_Member:=Tfrm_Member.Create(self);
    frm_Member.TabSheet2.TabVisible:=True;
    frm_Member.TabSheet1.TabVisible:=False;
    frm_Member.ShowModal;
    frm_Member.Free;
end;

procedure Tfrm_Thing_Base.BitBtn1Click(Sender: TObject);
begin
    frm_Data.ClientDataSet2.Active:=False;
    frm_data.ClientDataSet_Add.Active:=False;
    frm_data.ClientDataSet_Add.Close;
    frm_data.ClientDataSet2.Close;
    Close;
end;
//***********动态创建控键
procedure Tfrm_Thing_Base.SpeedButton1Click(Sender: TObject);
var
    n :Integer;
    aa: TButton;
    bb:TLabeledEdit;
begin
    for n:=1 to 10 do
    begin
        aa:=TButton.Create(Self);
        aa.Parent:=frm_Thing_Base;
        aa.Height:=20;
        aa.Width:=100;
        aa.Name:='Test' + IntToStr(n);
        aa.Top:=n * 20;
        aa.Left:=n * 40;
    end;
    bb:=TLabeledEdit.Create(Self);
    bb.Parent:=frm_Thing_Base.Panel35;
    bb.Height:=20;
    bb.Width:=120;
    bb.Left:=100;
    bb.Top:=10;
    bb.EditLabel.Caption:='我们的家园:';
    bb.LabelPosition:=lpLeft;
end;
//******************
//*********设置系统日期
procedure Tfrm_Thing_Base.SpeedButton2Click(Sender: TObject);
var
  systime: TSystemTime;
begin
  systime.wyear := 2002;
  systime.wmonth :=05;
  systime.wday := 23;
  systime.wHour:=10;
  systime.wMinute:=10;
  systime.wMilliseconds:=10;

  setsystemtime(systime);
  //LabeledEdit2.Text:=formatdatetime('yyyy''-''mm''-''dd',now)+' '+formatdatetime('hh'':''mm'':''dd',now);
end;

procedure Tfrm_Thing_Base.Cmd_P_EditClick(Sender: TObject);
begin
    if Trim(Edit1.Text)='' then
    begin
        Application.MessageBox('修改操作失败,［部门代码］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        Edit1.SetFocus;
        Exit;
    end;
    if Trim(Edit2.Text)='' then
    begin
        Application.MessageBox('修改操作失败,［部门代码］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        Edit2.SetFocus;
        Exit;
    end;
    if Application.MessageBox('确定需要修改该[部门]信息吗？',pchar(application.Title),mb_okcancel)=IDOK then
    begin
        with frm_data.ClientDataSet_Add do
        begin
            try
                Close;
                CommandText:='';
                CommandText:='Update [Part] set Part_NO='''+Trim(Edit1.Text)+''',Part_name='''+Trim(Edit2.Text)+''',remark='''+Trim(Edit3.Text)+'''where ID='''+Trim(Edit_Part_Id.Text)+'''';
                Execute;

                ListBox1.Clear;
                Close;
                CommandText:='';
                CommandText:='Select ID,Part_NO,Part_name,remark from [Part]';
                Open;
                while (not frm_data.ClientDataSet_Add.Eof ) do
                begin
                    ListBox1.Items.Add(frm_data.ClientDataSet_Add.FieldValues['Part_name']);
                    Next;
                end;
                frm_data.DataSource1.Enabled:=False;
                frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
                frm_data.DataSource1.Enabled:=True;
                DBGrid1.DataSource:=frm_data.DataSource1;
                DBGrid1.Columns[0].Title.caption:='自动序号';
                DBGrid1.Columns[1].Title.caption:='部门代码';
                DBGrid1.Columns[2].Title.caption:='部门名称';
                DBGrid1.Columns[3].Title.caption:='部门说明';
                DBGrid1.Columns[0].Width:=60;
                DBGrid1.Columns[1].Width:=60;
                DBGrid1.Columns[2].Width:=80;
                DBGrid1.Columns[3].Width:=250;
                Application.MessageBox('修改操作成功',pchar(application.Title),mb_iconwarning);
            except
                application.MessageBox('修改操作失败请检查连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
                Exit;
            end;
        end;
    end;
end;

procedure Tfrm_Thing_Base.Cmd_P_DeleteClick(Sender: TObject);
begin
    if Trim(Edit1.Text)='' then
    begin
        Application.MessageBox('删除操作失败,［部门代码］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        Edit1.SetFocus;
        Exit;
    end;
    if Trim(Edit2.Text)='' then
    begin
        Application.MessageBox('删除操作失败,［部门代码］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        Edit2.SetFocus;
        Exit;
    end;
    if Application.MessageBox('确定需要删除该[部门]信息吗？',pchar(application.Title),mb_okcancel)=IDOK then
    begin
        with frm_data.ClientDataSet_Add do
        begin
            try
                Close;
                CommandText:='';
                CommandText:='delete [Part] where ID='''+Trim(Edit_Part_Id.Text)+'''';
                Execute;

                ListBox1.Clear;
                Close;
                CommandText:='';
                CommandText:='Select ID,Part_NO,Part_name,remark from [Part]';
                Open;
                while (not frm_data.ClientDataSet_Add.Eof ) do
                begin
                    ListBox1.Items.Add(frm_data.ClientDataSet_Add.FieldValues['Part_name']);
                    Next;
                end;
                frm_data.DataSource1.Enabled:=False;
                frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
                frm_data.DataSource1.Enabled:=True;
                DBGrid1.DataSource:=frm_data.DataSource1;
                DBGrid1.Columns[0].Title.caption:='自动序号';
                DBGrid1.Columns[1].Title.caption:='部门代码';
                DBGrid1.Columns[2].Title.caption:='部门名称';
                DBGrid1.Columns[3].Title.caption:='部门说明';
                DBGrid1.Columns[0].Width:=60;
                DBGrid1.Columns[1].Width:=60;
                DBGrid1.Columns[2].Width:=80;
                DBGrid1.Columns[3].Width:=250;
                Application.MessageBox('删除操作成功',pchar(application.Title),mb_iconwarning);
            except
                application.MessageBox('删除操作失败,请检查连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
                Exit;
            end;
        end;
    end;

end;

procedure Tfrm_Thing_Base.EG17Change(Sender: TObject);
begin
    Make_Goods_Code;
    Eg1.Text:=Trim(EG1.Text)+MakeSpellCode(EG17.Text, 4, 255);
end;

procedure Tfrm_Thing_Base.Cmd__ModalClick(Sender: TObject);
begin
    Subject_Str:='';Subject_No:='';Subject_Name:='';
    Subject_Str:='0001';//如果等于0001表示商品类别选择
    EG3.Clear; EG3.Text:='';
    frm_Goods_Select:=Tfrm_Goods_Select.Create(self);
    frm_Goods_Select.Caption:='【商品类别选择】';
    frm_Goods_Select.TabSheet1.TabVisible:=True;
    frm_Goods_Select.TabSheet2.TabVisible:=False;
    frm_Goods_Select.TabSheet3.TabVisible:=False;
    frm_Goods_Select.TabSheet4.TabVisible:=False;
    frm_Goods_Select.ShowModal;
    if Subject_Back='0001' then
    begin
       EG2.Text:=Subject_No;
       EG3.Text:=Subject_Name;
    end;
    frm_Goods_Select.Free;
end;

procedure Tfrm_Thing_Base.Cmd_CardsClick(Sender: TObject);
begin
    if Trim(EG2.Text)='' then
    begin
        Application.MessageBox('操作错误,［商品类别］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        Exit;
    end;
    Subject_Str:='';Subject_No:='';Subject_Name:='';
    Subject_Str:='0002';//如果等于0002表示商品品牌选择
    EG5.Clear; EG5.Text:='';
    G_Modal:='';   //取得商品类别的名称
    G_Modal:=Trim(EG3.Text);
    frm_Goods_Select:=Tfrm_Goods_Select.Create(self);
    frm_Goods_Select.Caption:='【商品品牌选择】';
    frm_Goods_Select.TabSheet1.TabVisible:=False;
    frm_Goods_Select.TabSheet2.TabVisible:=True;
    frm_Goods_Select.TabSheet3.TabVisible:=False;
    frm_Goods_Select.TabSheet4.TabVisible:=False;
    frm_Goods_Select.ShowModal;
    if Subject_Back='0002' then
    begin
       EG4.Text:=Subject_No;
       EG5.Text:=Subject_Name;
       EG16.Text:=Subject_Facility;
    end;
    frm_Goods_Select.Free;
end;

procedure Tfrm_Thing_Base.SpeedButton52Click(Sender: TObject);
begin
    frm_Goods_Select:=Tfrm_Goods_Select.Create(self);
    frm_Goods_Select.Caption:='【生产厂家选择】';
    frm_Goods_Select.TabSheet3.TabVisible:=True;
    frm_Goods_Select.TabSheet1.TabVisible:=False;
    frm_Goods_Select.TabSheet2.TabVisible:=False;
    frm_Goods_Select.TabSheet4.TabVisible:=False;
    frm_Goods_Select.ShowModal;
    frm_Goods_Select.Free;
end;

procedure Tfrm_Thing_Base.Cmd_ColorClick(Sender: TObject);
begin
    Subject_Str:='';Subject_No:='';Subject_Name:='';
    Subject_Str:='0004';//如果等于0001表示商品类别选择
    EG9.Clear; EG9.Text:='';
    frm_Goods_Select:=Tfrm_Goods_Select.Create(self);
    frm_Goods_Select.Caption:='【商品颜色选择】';
    frm_Goods_Select.TabSheet1.TabVisible:=False;
    frm_Goods_Select.TabSheet2.TabVisible:=False;
    frm_Goods_Select.TabSheet3.TabVisible:=False;
    frm_Goods_Select.TabSheet4.TabVisible:=True;
    frm_Goods_Select.ShowModal;
    if Subject_Back='0004' then
    begin
       EG12.Text:=Subject_No;
       EG13.Text:=Subject_Name;
    end;
    frm_Goods_Select.Free;
end;

procedure Tfrm_Thing_Base.TreeView1Changing(Sender: TObject;
  Node: TTreeNode; var AllowChange: Boolean);
var
    GoodsName:string;
begin
    if TreeView1.Selected.Level=1 then
    begin
        Goods_Type:=TreeView1.Selected.Text;
        with TreeView1.Items do
        begin
            with frm_data.ClientDataSet2 do
            begin
                Close;
                CommandText:='';
                CommandText:='select distinct Goods_name from [Goods_Information] where Goods_Modal='''+Goods_Type+'''';
                Open;
                GoodsName:=frm_data.ClientDataSet2.FieldValues['Goods_name'];
                while not EOF do
                begin
                    if GoodsName=frm_data.ClientDataSet2.FieldValues['Goods_name'] then
                    begin
                        NodeText2:=frm_data.ClientDataSet2.FieldValues['Goods_name'];
                        Node3:=AddChild(Node2,NodeText2);
                        Node3.ImageIndex:=2;
                    end;
                    Next;
                end;
            end;
            frm_data.ClientDataSet2.Active:=False;
            frm_data.ClientDataSet2.Close;
        end;
    end;
end;

procedure Tfrm_Thing_Base.Cmd_Storge_AddClick(Sender: TObject);
begin
    Cmd_Storge_Add.Enabled:=False;
    Cmd_Storge_Delete.Enabled:=False;
    Cmd_Storge_Edit.Enabled:=False;
    Cmd_Storge_Save.Enabled:=True;
    Cmd_Storge_Exit.Caption:='取消';
end;

procedure Tfrm_Thing_Base.Cmd_Storge_ExitClick(Sender: TObject);
begin
    if Cmd_Storge_Exit.Caption='取消'then
    begin
        Cmd_Storge_Add.Enabled:=true;