thing_base.pas

delphi的一个开发实例

    procedure Cmd_BrandClick(Sender: TObject);
    procedure Cmd_G_SaveClick(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure Cmd_G_AddClick(Sender: TObject);
    procedure Cmd_G_ExitClick(Sender: TObject);
    procedure DBGrid3CellClick(Column: TColumn);
    procedure Cmd_G_EditClick(Sender: TObject);
    procedure Cmd_G_DeleteClick(Sender: TObject);
    procedure Cmd_S_SaveClick(Sender: TObject);
    procedure DBGrid4CellClick(Column: TColumn);
    procedure Cmd_S_ExitClick(Sender: TObject);
    procedure Cmd_S_EditClick(Sender: TObject);
    procedure Cmd_S_AddClick(Sender: TObject);
    procedure Cmd_S_DeleteClick(Sender: TObject);
    procedure EG21Change(Sender: TObject);
    procedure Cmd_E_AddClick(Sender: TObject);
    procedure Cmd_E_SaveClick(Sender: TObject);
    procedure Cmd_E_TreeviewClick(Sender: TObject);
    procedure TreeView2Click(Sender: TObject);
    procedure Cmd_E_EditClick(Sender: TObject);
    procedure DBGrid5CellClick(Column: TColumn);
    procedure Cmd_E_ExitClick(Sender: TObject);
    procedure Cmd_E_DeleteClick(Sender: TObject);
    procedure Image1DblClick(Sender: TObject);
    procedure SpeedButton27Click(Sender: TObject);
    procedure Edit23Change(Sender: TObject);
    procedure Cmd_Y_SaveClick(Sender: TObject);
    procedure Cmd_Y_RushClick(Sender: TObject);
    procedure DBGrid_YHZHCellClick(Column: TColumn);
    procedure Cmd_Y_AddClick(Sender: TObject);
    procedure Cmd_Y_DeleteClick(Sender: TObject);
    procedure Cmd_Y_EditClick(Sender: TObject);
    procedure SpeedButton29Click(Sender: TObject);
    procedure Cmd_SH_AddClick(Sender: TObject);
    procedure Cmd_SH_SaveClick(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
    procedure Cmd_GRClick(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure Cmd_SH_RushClick(Sender: TObject);
    procedure DBGrid_ChildShopCellClick(Column: TColumn);
  private
    { Private declarations }
    procedure Make_Goods_Code;
  public
    { Public declarations }
  end;

var
    frm_Thing_Base: Tfrm_Thing_Base;
    Node1,Node2,Node3,Node4,Node5,Node6,Node7,Node8:TTreeNode;
    NodeText1,NodeText2,NodeText3,NodeText4,NodeText5,NodeText6,Nodetext7,Nodetext8:String;
    Goods_Type:String;
    MyJPEG : TJPEGImage;
    fl:TFileStream;
    tempstream:TStringStream;
    tempjpeg:TJPEGImage;
    Goods_Code_Str:String;
implementation

uses Member, IMCode, func, Goods_Select, Data, Batch_Insert, Goods;

{$R *.dfm}
//自定义商品编码生成的过程
procedure Tfrm_Thing_Base.Make_Goods_Code;
begin
    Goods_Code_Str:='';
    if Trim(Eg2.Text)<>'' then
    begin
        Goods_Code_Str:=Goods_Code_Str+Trim(Eg2.Text)+'_';
    end;
    if Trim(Eg4.Text)<>'' then
    begin
        Goods_Code_Str:=Goods_Code_Str+Trim(Eg4.Text)+'_';
    end;
    if Trim(Eg6.Text)<>'' then
    begin
        Goods_Code_Str:=Goods_Code_Str+Trim(Eg6.Text)+'_';
    end;
    if Trim(Eg8.Text)<>'' then
    begin
        Goods_Code_Str:=Goods_Code_Str+Trim(Eg8.Text)+'_';
    end;
    if Trim(Eg12.Text)<>'' then
    begin
        Goods_Code_Str:=Goods_Code_Str+Trim(Eg12.Text)+'_';
    end;
    if Trim(Eg10.Text)<>'' then
    begin
        Goods_Code_Str:=Goods_Code_Str+Trim(Eg10.Text)+'_';
    end;
    EG1.Text:=Goods_Code_Str;
end;

//自定义员工信息树型结构
function Data_Check:boolean;
begin
    if frm_Thing_Base.EG8.Text<>'' then
    begin
        frm_Thing_Base.EG8.Enabled:=True;
    end;
    if frm_Thing_Base.EG9.Text<>'' then
    begin
        frm_Thing_Base.EG9.Enabled:=True;
    end;
    if frm_Thing_Base.EG10.Text<>'' then
    begin
        frm_Thing_Base.EG10.Enabled:=True;
    end;
    if frm_Thing_Base.EG11.Text<>'' then
    begin
        frm_Thing_Base.EG11.Enabled:=True;
    end;
    if frm_Thing_Base.EG12.Text<>'' then
    begin
        frm_Thing_Base.EG12.Enabled:=True;
    end;
    if frm_Thing_Base.EG13.Text<>'' then
    begin
        frm_Thing_Base.EG13.Enabled:=True;
    end;

end;

procedure Tfrm_Thing_Base.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    frm_data.ClientDataSet_Add.Active:=False;
    frm_data.ClientDataSet1.Active:=False;
    frm_data.ClientDataSet2.Active:=False;
    frm_data.ClientDataSet3.Active:=False;
    frm_data.ClientDataSet4.Active:=False;
    frm_data.ClientDataSet_Select.Active:=False;
    frm_data.ClientDataSet_Select.Close;
    action:=cafree;
end;

procedure Tfrm_Thing_Base.FormShow(Sender: TObject);
begin
    self.AutoScroll:=True;
    frm_Thing_Base.Left:=170;
    frm_Thing_Base.Top:=40;
    frm_Thing_Base.Height:=690;
    frm_Thing_Base.Width:=850;
    if Do_Result='0001' then //
    begin
        ListBox1.Clear;
        with frm_data.ClientDataSet_Add do
        begin
            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:=110;
        end;
    end;
    if Do_Result='0003' then
    begin
        with frm_data.ClientDataSet_Add do
        begin
            try
                Close;
                CommandText:='';
                CommandText:='select ID,supply_name,abbreviation,supply_NO,address,Zip,Link_person,Telphone,Fax,Email,tax_No,bank,bill,Must_gather,Pay_gather,legal_person,contact,remark from [Supply_Company]order by ID';
                Open;
                frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
                frm_data.DataSource1.Enabled:=True;
                DBGrid4.DataSource:=frm_data.DataSource1;
                DBGrid4.Columns[0].Title.caption:='序号';
                DBGrid4.Columns[1].Title.caption:='单位名称';
                DBGrid4.Columns[2].Title.caption:='单位简称';
                DBGrid4.Columns[3].Title.caption:='单位编号';
                DBGrid4.Columns[4].Title.caption:='详细地址';
                DBGrid4.Columns[5].Title.caption:='邮政编码';
                DBGrid4.Columns[6].Title.caption:='联系人员';
                DBGrid4.Columns[7].Title.caption:='联系电话';
                DBGrid4.Columns[8].Title.caption:='传真号码';
                DBGrid4.Columns[9].Title.caption:='电子邮件';
                DBGrid4.Columns[10].Title.caption:='税号';
                DBGrid4.Columns[11].Title.caption:='开户银行';
                DBGrid4.Columns[12].Title.caption:='银行帐号';
                DBGrid4.Columns[13].Title.caption:='应收款余额';
                DBGrid4.Columns[14].Title.caption:='应付款余额';
                DBGrid4.Columns[15].Title.caption:='法人代表';
                DBGrid4.Columns[16].Title.caption:='信用额度';
                DBGrid4.Columns[17].Title.caption:='备注说明';
                if frm_data.ClientDataSet_Add.RecordCount>0 then
                begin
                    Last;
                    Edit_S_ID.Text:=frm_data.ClientDataSet_Add.FieldValues['ID'];
                    ED1.Text:=frm_data.ClientDataSet_Add.FieldValues['supply_name'];
                    ED2.Text:=frm_data.ClientDataSet_Add.FieldValues['abbreviation'];
                    ED3.Text:=frm_data.ClientDataSet_Add.FieldValues['supply_NO'];
                    ED4.Text:=frm_data.ClientDataSet_Add.FieldValues['address'];
                    ED5.Text:=frm_data.ClientDataSet_Add.FieldValues['Zip'];
                    ED6.Text:=frm_data.ClientDataSet_Add.FieldValues['Link_person'];
                    ED7.Text:=frm_data.ClientDataSet_Add.FieldValues['Telphone'];
                    ED8.Text:=frm_data.ClientDataSet_Add.FieldValues['Fax'];
                    ED9.Text:=frm_data.ClientDataSet_Add.FieldValues['Email'];
                    ED10.Text:=frm_data.ClientDataSet_Add.FieldValues['tax_No'];
                    ED11.Text:=frm_data.ClientDataSet_Add.FieldValues['bank'];
                    ED12.Text:=frm_data.ClientDataSet_Add.FieldValues['bill'];
                    ED13.Text:=frm_data.ClientDataSet_Add.FieldValues['Must_gather'];
                    ED14.Text:=frm_data.ClientDataSet_Add.FieldValues['Pay_gather'];
                    ED15.Text:=frm_data.ClientDataSet_Add.FieldValues['legal_person'];
                    ED16.Text:=frm_data.ClientDataSet_Add.FieldValues['contact'];
                    ED17.Text:=frm_data.ClientDataSet_Add.FieldValues['remark'];
                end
                else
                begin
                    Edit_S_ID.Text:='';
                    ED1.Text:='';  ED2.Text:='';  ED3.Text:='';  ED4.Text:='';ED5.Text:='';
                    ED6.Text:='';  ED7.Text:='';  ED8.Text:='';  ED9.Text:='';ED10.Text:='';
                    ED11.Text:=''; ED12.Text:=''; ED13.Text:=''; ED14.Text:='';ED15.Text:='';
                    ED16.Text:=''; ED17.Text:='';
                end;
            except
                Application.MessageBox('操作失败请检查连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
            end;
        end;
    end;
    if Do_Result='0002' then
    begin
        Cmd_E_Treeview.Click;
        frm_data.DataSource1.Enabled:=False;
        frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
        DBGrid5.DataSource:=frm_data.DataSource1;
        Edit9.Clear;
        with frm_data.ClientDataSet_Add do
        begin
            Close;
            CommandText:='';
            CommandText:='Select * from [Eduction_Set]';
            Open;
            while (not frm_data.ClientDataSet_Add.Eof ) do
            begin
                Edit9.Items.Add(frm_data.ClientDataSet_Add.FieldValues['Eduction_name']);
                Next;
            end;
        end;
        with frm_data.ClientDataSet_Add do
        begin
            Close;
            CommandText:='';
            CommandText:='Select ID,Part_name,employee_NO,employee_name,Sex,Old,Eduction,Status_Card,Native_Place,Address,ZIP,Telphone,Work_date,duty,Work_Flag,Photo from [Employee]';
            Open;
            if frm_data.ClientDataSet_Add.RecordCount>0 then
            begin
                frm_data.DataSource1.Enabled:=True;
                Dbgrid5.DataSource:=frm_data.DataSource1;
                Dbgrid5.Columns[0].Title.caption:='序号';
                Dbgrid5.Columns[1].Title.caption:='所属部门';
                Dbgrid5.Columns[2].Title.caption:='员工编号';
                Dbgrid5.Columns[3].Title.caption:='员工姓名';
                Dbgrid5.Columns[4].Title.caption:='员工性别';
                Dbgrid5.Columns[5].Title.caption:='出生日期';
                Dbgrid5.Columns[6].Title.caption:='员工学历';
                Dbgrid5.Columns[7].Title.caption:='身份证号';
                Dbgrid5.Columns[8].Title.caption:='籍贯';
                Dbgrid5.Columns[9].Title.caption:='家庭住址';
                Dbgrid5.Columns[10].Title.caption:='邮政编码';
                Dbgrid5.Columns[11].Title.caption:='联系电话';
                Dbgrid5.Columns[12].Title.caption:='就职日期';
                Dbgrid5.Columns[13].Title.caption:='现任职务';
                Dbgrid5.Columns[14].Title.caption:='是否在职';
                First;
                Edit_employee_ID.Text:=frm_data.ClientDataSet_Add.FieldValues['ID'];
                Edit4.Text:=frm_data.ClientDataSet_Add.FieldValues['Part_name'];
                Edit5.Text:=frm_data.ClientDataSet_Add.FieldValues['employee_NO'];
                Edit6.Text:=frm_data.ClientDataSet_Add.FieldValues['employee_name'];
                Edit7.Text:=frm_data.ClientDataSet_Add.FieldValues['Sex'];
                Edit8.Text:=ForMatDatetime('yyyy''-''mm''-''dd',frm_data.ClientDataSet_Add.FieldValues['Old']);
                Edit9.Text:=frm_data.ClientDataSet_Add.FieldValues['Eduction'];
                Edit10.Text:=frm_data.ClientDataSet_Add.FieldValues['Status_Card'];
                Edit11.Text:=frm_data.ClientDataSet_Add.FieldValues['Native_Place'];
                Edit12.Text:=frm_data.ClientDataSet_Add.FieldValues['Address'];
                Edit13.Text:=frm_data.ClientDataSet_Add.FieldValues['ZIP'];
                Edit14.Text:=frm_data.ClientDataSet_Add.FieldValues['Telphone'];
                Edit15.Text:=ForMatDatetime('yyyy''-''mm''-''dd',frm_data.ClientDataSet_Add.FieldValues['Work_date']);
                Edit16.Text:=frm_data.ClientDataSet_Add.FieldValues['duty'];
                Edit17.Text:=frm_data.ClientDataSet_Add.FieldValues['Work_Flag'];
            end;
        end;

    end;
    if Do_Result='0009' then
    begin
        Cmd_G_TreeView.Click;
    end;
    if Do_Result='0006' then
    begin
        frm_data.DataSource1.Enabled:=False;
        with frm_data.ClientDataSet_Add do
        begin
            Close;
            CommandText:='';
            CommandText:='Select * from [Storage]';
            Open;
            frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
            frm_data.DataSource1.Enabled:=False;
            DBGrid2.DataSource:=frm_data.DataSource1;
            if frm_data.ClientDataSet_Add.RecordCount>0 then
            begin
                frm_data.DataSource1.Enabled:=True;
                DBGrid2.Columns[0].Title.caption:='序号';
                DBGrid2.Columns[1].Title.caption:='仓库编号';
                DBGrid2.Columns[2].Title.caption:='仓库名称';
                DBGrid2.Columns[3].Title.caption:='仓库类型';
                DBGrid2.Columns[4].Title.caption:='所属区域';