thing_base.pas

delphi的一个开发实例

procedure Tfrm_Thing_Base.Cmd_G_CancelClick(Sender: TObject);
begin
    frm_data.ClientDataSet_Add.Active:=False;
    frm_data.ClientDataSet_Add.Close;
    Close;
end;

procedure Tfrm_Thing_Base.Edit2Change(Sender: TObject);
begin
    Edit1.Text:=MakeSpellCode(Edit2.Text, 4, 255);
end;

procedure Tfrm_Thing_Base.Cmd_P_AddClick(Sender: TObject);
begin
    Cmd_P_Add.Enabled:=False;
    Cmd_P_Delete.Enabled:=False;
    Cmd_P_Edit.Enabled:=False;
    Cmd_P_Save.Enabled:=True;
    Cmd_P_Exit.Caption:='取消';
end;

procedure Tfrm_Thing_Base.Cmd_P_ExitClick(Sender: TObject);
begin
    Cmd_P_Add.Enabled:=True;
    Cmd_P_Delete.Enabled:=True;
    Cmd_P_Edit.Enabled:=True;
    Cmd_P_Save.Enabled:=False;
    with frm_data.ClientDataSet_Add do
    begin
        Close;
        CommandText:='';
        CommandText:='Select ID,Part_NO,Part_name,remark from [Part]';
        Open;
        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:=200;
        first;
        Edit_Part_ID.Text:=frm_data.ClientDataSet_Add.FieldValues['ID'];
        Edit1.Text:=frm_data.ClientDataSet_Add.FieldValues['Part_NO'];
        Edit2.Text:=frm_data.ClientDataSet_Add.FieldValues['Part_name'];
        Edit3.Text:=frm_data.ClientDataSet_Add.FieldValues['remark'];
    end;
end;

procedure Tfrm_Thing_Base.Cmd_P_SaveClick(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;
    with frm_data.ClientDataSet_Add do
    begin
        try
            Close;
            CommandText:='';
            CommandText:='Select ID,Part_NO,Part_name,remark from [Part] where Part_NO='''+Trim(Edit1.Text)+'''and Part_name='''+Trim(Edit2.Text)+'''';
            Open;
            if frm_data.ClientDataSet_Add.RecordCount<>0 then
            begin
                Application.MessageBox('添加操作失败, 该［部门信息］已经存在了！，请确认！',pchar(application.Title),mb_iconwarning);
                Exit;
            end
            else
            begin
                try
                    Close;
                    CommandText:='';
                    CommandText:='Insert into [Part](Part_NO,Part_name,remark)values ('''+Trim(Edit1.Text)+''','''+Trim(Edit2.Text)+''','''+Trim(Edit3.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:=200;
                    Application.MessageBox('添加操作成功',pchar(application.Title),mb_iconwarning);
                    Cmd_P_add.Enabled:=True;
                    Cmd_P_Delete.Enabled:=True;
                    Cmd_P_edit.Enabled:=True;
                    Cmd_P_Save.Enabled:=False;
                    Cmd_P_Exit.Caption:='刷新';
                except
                    Application.MessageBox('添加操作失败请检查连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
                    Cmd_P_add.Enabled:=True;
                    Cmd_P_Delete.Enabled:=True;
                    Cmd_P_edit.Enabled:=True;
                    Cmd_P_Save.Enabled:=False;
                    Exit;
                end;
            end;
        except
            application.MessageBox('添加操作失败请检查连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
            Cmd_P_add.Enabled:=True;
            Cmd_P_Delete.Enabled:=True;
            Cmd_P_edit.Enabled:=True;
            Cmd_P_Save.Enabled:=False;
            Exit;
        end;
    end;
end;

procedure Tfrm_Thing_Base.Cmd_P_TreeClick(Sender: TObject);
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;

procedure Tfrm_Thing_Base.DBGrid1CellClick(Column: TColumn);
begin
    Edit_Part_ID.Text:=frm_data.ClientDataSet_Add.FieldValues['ID'];
    Edit1.Text:=frm_data.ClientDataSet_Add.FieldValues['Part_NO'];
    Edit2.Text:=frm_data.ClientDataSet_Add.FieldValues['Part_name'];
    Edit3.Text:=frm_data.ClientDataSet_Add.FieldValues['remark'];
end;

procedure Tfrm_Thing_Base.FormCreate(Sender: TObject);
var
    FWidth:integer;
    Path, Name: string;
begin
    if(Screen.width<> 1024)then
    begin
        FWidth:=Width;
        Height:=longint(Height)*longint(Screen.Height)DIV 768;
        Width:=longint(Width)*longint(Screen.Width)DIV 1024;//窗口大小调整
        ScaleBy(Screen.Width,1024); //控件大小调整
        Font.Size:=(Width DIV FWidth)*Font.Size;//字体大小调整
    end;
end;

procedure Tfrm_Thing_Base.ListBox1Click(Sender: TObject);
var
    icount:Integer;
begin
    if Listbox1.Items.Count<>0 then
    begin
        for icount:=Listbox1.Items.Count-1 downto 0 do
        begin
            if Listbox1.Selected[icount] then
            begin
                Edit2.Text:=Listbox1.Items.Strings[icount];
                with frm_data.ClientDataSet_Add do
                begin
                    Close;
                    frm_data.ClientDataSet_Add.CommandText:='';
                    CommandText:='Select ID,Part_NO,Part_name,remark from [Part] where Part_name='''+Trim(Edit2.Text)+'''';
                    Open;
                    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:=200;
                    Edit_Part_ID.Text:=frm_data.ClientDataSet_Add.FieldValues['ID'];
                    Edit1.Text:=frm_data.ClientDataSet_Add.FieldValues['Part_NO'];
                    Edit3.Text:=frm_data.ClientDataSet_Add.FieldValues['remark'];
                end;
            end;
        end;
    end;
end;

procedure Tfrm_Thing_Base.DateTimePicker1Change(Sender: TObject);
begin
    Edit8.Text:=formatdatetime('yyyy''-''mm''-''dd',DateTimePicker1.Date);
end;

procedure Tfrm_Thing_Base.DateTimePicker2Change(Sender: TObject);
begin
    Edit17.Text:=formatdatetime('yyyy''-''mm''-''dd',DateTimePicker2.Date);
end;

procedure Tfrm_Thing_Base.Cmd_G_TreeViewClick(Sender: TObject);
var
    Goods_Modal_Str:String;
begin
    with TreeView1.Items do
    begin
        TreeView1.Items.Clear;
        Node1:=Add(nil,'大类信息'); //大类信息
        Node1.ImageIndex:=0;

        with frm_data.ClientDataSet2 do
        begin
            Close;
            CommandText:='select distinct Goods_Modal from [Goods_Modal]';
            Open;
            First;
            While Not Eof do
            begin
                NodeText1:=frm_data.ClientDataSet2.FieldValues['Goods_Modal'];
                Goods_Modal_Str:=frm_data.ClientDataSet2.FieldValues['Goods_Modal']; //商品类别
                Node2:=AddChild(Node1,NodeText1);
                Node1.ImageIndex:=1;
                with frm_data.ClientDataSet3 do
                begin
                    Close;
                    CommandText:='select distinct Goods_name from [Goods_Information] where Goods_Modal='''+Goods_Modal_Str+'''';
                    Open;
                    First;
                    While Not Eof do
                    begin
                        if Goods_Modal_Str=frm_data.ClientDataSet2.FieldValues['Goods_Modal'] then
                        begin
                            NodeText2:=frm_data.ClientDataSet3.FieldValues['Goods_name'];
                            Node3:=AddChild(Node2,NodeText2);
                            Node3.ImageIndex:=2;
                        end;
                        Next;
                    end;
                end;
                Next;
            end;
        end;
    end;
    frm_data.ClientDataSet3.Close;
    frm_data.ClientDataSet2.Close;
end;

procedure Tfrm_Thing_Base.Cmd_BrandClick(Sender: TObject);
begin
    if Trim(EG2.Text)='' then
    begin
        Application.MessageBox('操作错误,［商品类别］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        Exit;
    end;
    if Trim(EG4.Text)='' then
    begin
        Application.MessageBox('操作错误,［商品品牌］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        Exit;
    end;
    Subject_Str:='';Subject_No:='';Subject_Name:='';
    Subject_Str:='0003';//如果等于0001表示商品类别选择
    EG7.Clear; EG7.Text:='';
    G_Cards:='';
    G_Cards:=Trim(EG5.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:=True;
    frm_Goods_Select.TabSheet4.TabVisible:=False;
    frm_Goods_Select.ShowModal;
    if Subject_Back='0003' then
    begin
       EG6.Text:=Subject_No;
       EG7.Text:=Subject_Name;
    end;
    frm_Goods_Select.Free;
end;

procedure Tfrm_Thing_Base.Cmd_G_SaveClick(Sender: TObject);
var
    tempstr,tempsql,tempText:string;
    openstr:string;
begin
    if Trim(EG1.Text)='' then
    begin
        application.MessageBox('添加失败,【商品编号】不能为空！请检查你的输入是否正确，请确认！',pchar(application.Title),mb_iconwarning);
        EG1.SetFocus;
        Exit;
    end;
    if Trim(EG2.Text)='' then
    begin
        application.MessageBox('添加失败,【类别名称】不能为空！请正确选择或填写，